# Oddmuse is a wiki engine -*- perl6 -*-
# Copyright (C) 2018  Alex Schroeder <alex@gnu.org>
#
# This program is free software: you can redistribute it and/or modify it
# under the terms of the GNU Affero General Public License as published by the
# Free Software Foundation, either version 3 of the License, or (at your
# option) any later version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License
# for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.

use lib 'lib';
use Oddmuse::Storage::File::Test;
use Oddmuse::Storage;
use Oddmuse::Changes;
use Oddmuse::Filter;
use Oddmuse::Routes;
use Cro::HTTP::Test;
use DOM::Tiny;
use Test;

my $root = get-random-wiki-directory;

"$root/rc.log".IO.spurt(qq :to 'EOF');
2018-09-18T15:36:38.000000+02:000About11285first
2018-09-18T15:36:38.000000+02:001About2Alexsecond
2018-09-18T15:36:39.000000+02:000About3Alexthird
2018-09-18T15:36:40.000000+02:001About4Alexfourth
2018-09-19T15:36:41.000000+02:000Help1Alexfifth
EOF

my $storage = Oddmuse::Storage.new;
is $storage.get-changes(Oddmuse::Filter.new).elems, 2, "two major changes";
is $storage.get-changes(Oddmuse::Filter.new(:all)).elems, 3, "three major changes including older ones";
my %params = all => 'on', id => '', author => '', n => '30';
is $storage.get-changes(Oddmuse::Filter.new.from-hash(%params)).elems, 3, "same but from a parameter hash";
is $storage.get-changes(Oddmuse::Filter.new(:all, :minor)).elems, 5, "five changes total";
is $storage.get-changes(Oddmuse::Filter.new(:all, author => 'Alex')).elems, 2, "two major changes by Alex";
is $storage.get-changes(Oddmuse::Filter.new(:all, :minor, author => 'Alex')).elems, 4, "four changes by Alex";
is $storage.get-changes(Oddmuse::Filter.new(:all, :minor, author => 'Alex')).elems, 4, "four changes by Alex";
is $storage.get-changes(Oddmuse::Filter.new(id => 'Help')).elems, 1, "one change to Help";
is $storage.get-changes(Oddmuse::Filter.new(id => 'Help'))[0].id, "Help", "page name matches filter id";
is $storage.get-changes(Oddmuse::Filter.new(:all, :minor, n => 3)).elems, 3, "three changes with limit";

my $dom = DOM::Tiny.parse(view-changes(Oddmuse::Filter.new));
is $dom.find("#changes h2")[0].text, "2018-09-19", "first date heading is correct";
like $dom.at("#changes h2:first-of-type + ul").all-text, / Help /, "Help page under the right heading";
is $dom.find("#changes h2")[1].text, "2018-09-18", "second date heading is correct";
like $dom.at("#changes h2:nth-of-type(2) + ul").all-text, / About /, "About page under the right heading";

test-service routes(), {

    test-given '/view/Changes', {
        # diag '/view/Changes is a synonym for /changes';
        test get(),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .* fifth .* third /;
        test get(), body => { $_ !~~ /« ( first | second | fourth ) »/ };
    }

    test-given '/changes', {
        # diag 'default lists the last major change of every page';
        test get(),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .*
                 '<h2>2018-09-19</h2>' .*
                 fifth .*
                 '<h2>2018-09-18</h2>' .*
                 third
                 /;
        test get(), body => { $_ !~~ /« ( first | second | fourth ) »/ };

        # diag 'n=1 lists just the one last major change';
        test get('?n=1'),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .* fifth /;
        test get('?n=1'), body => { $_ !~~ /« ( first | second | third | fourth ) »/ };

        # diag 'all=1 lists all the major changes';
        test get('?all=1'),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .* fifth .* third .* first /;
        test get('?all=1'), body => { $_ !~~ /« ( second | fourth ) »/ };

        # diag 'all=1 & minor=1 lists all the changes';
        test get('?all=1&minor=1'),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .* fifth .* fourth .* third .* second .* first /;

        # diag 'all=1 & minor=1 & author=Alex lists all the changes by Alex';
        test get('?all=1&minor=1&author=Alex'),
            status => 200,
            content-type => 'text/html',
            body => / '<h1>Changes</h1>' .* fifth .* fourth .* third .* second /;
        test get('?all=1&minor=1&author=Alex'), body => { $_ !~~ /« first »/ };
    }
}

done-testing;
