# Copyright (C) 2006–20015  Alex Schroeder <alex@gnu.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.

require 't/test.pl';
package OddMuse;
use Test::More tests => 93;

# Make sure Days is numeric
test_page(get_page(qw(action=rc days=WTF)), 'Updates in the last 30 days');

# Check the More... links

my $more = xpath_test(get_page('action=rc days=3'),
		      '//a[text()="More..."]/attribute::href');
my ($from, $upto) = $more =~ /action=rc;from=(\d+);upto=(\d+)/;
is($upto - $from, 3 * 24 * 60 * 60, 'More... link is for 3 days');

# Click it once...

$more = xpath_test(get_page("action=rc from=$from upto=$upto"),
		   '//a[text()="More..."]/attribute::href');

($from, $upto) = $more =~ /action=rc;from=(\d+);upto=(\d+)/;
is($upto - $from, 3 * 24 * 60 * 60, 'Next More... link is for 3 days, too');

# Click it twice...

$more = xpath_test(get_page("action=rc from=$from upto=$upto"),
		   '//a[text()="More..."]/attribute::href');

($from, $upto) = $more =~ /action=rc;from=(\d+);upto=(\d+)/;
is($upto - $from, 3 * 24 * 60 * 60, 'Next More... link is for 3 days, too');

# Make sure it handles empty log files and very old log files with
# nothing appropriate in them.

test_page(get_page('action=rc raw=1'), 'title: Wiki');
# ts, id, minor, summary, host, username, revision, languages, cluster
WriteStringToFile($RcFile, "1${FS}test${FS}${FS}test${FS}127.0.0.1${FS}${FS}1${FS}${FS}\n");
test_page_negative(get_page('action=rc raw=1'), 'title: test');
test_page(get_page('action=rc raw=1 from=1'), 'title: Wiki', 'title: test',
	  'description: test', 'generator: 127.0.0.1',
	  'link: http://localhost/wiki.pl/test',
	  'last-modified: 1970-01-01T00:00Z', 'revision: 1');

test_page(get_page('action=maintain'),
	  'Moving part of the RecentChanges log file',
	  'Moving 1 log entries');

# make sure it was anonymized
test_page(get_page('action=rc raw=1 from=1'), 'title: Wiki', 'title: test',
	  'description: test', 'generator: Anonymous',
	  'link: http://localhost/wiki.pl/test',
	  'last-modified: 1970-01-01T00:00Z', 'revision: 1');

# Test that newlines are in fact stripped
update_page('Newlines', 'Some text', "Summary\nwith newlines",
	    '', '', "'username=my%0aname'");
$page = get_page('action=rc raw=1');
test_page($page, 'title: Newlines',
	  'description: Summary with newlines');
test_page_negative($page, 'generator: my');

# More elaborate tests for the filters

$host1 = 'tisch';
$host2 = 'stuhl';
$ENV{'REMOTE_ADDR'} = $host1;
update_page('Mendacibombus', 'This is the place.', 'samba', 0, 0,
	    ('username=berta'));
update_page('Bombia', 'This is the time.', 'tango', 0, 0,
	    ('username=alex'));
$ENV{'REMOTE_ADDR'} = $host2;
update_page('Confusibombus', 'This is order.', 'ballet', 1, 0,
	    ('username=berta'));
update_page('Mucidobombus', 'This is chaos.', 'tarantella', 0, 0,
	    ('username=alex'));

@Positives = split('\n',<<'EOT');
for time\|place only
Mendacibombus.*samba
Bombia.*tango
EOT

@Negatives = split('\n',<<'EOT');
Confusibombus
ballet
Mucidobombus
tarantella
EOT

$page = get_page('action=rc rcfilteronly=time\|place');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mucidobombus.*tarantella);
@Negatives = split('\n',<<'EOT');
Mendacibombus
samba
Bombia
tango
Confusibombus
ballet
EOT

$page = get_page('action=rc rcfilteronly=order\|chaos');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = ();
@Negatives = split('\n',<<'EOT');
Mucidobombus
tarantella
Mendacibombus
samba
Bombia
tango
Confusibombus
ballet
EOT

$page = get_page('action=rc rcfilteronly=order%20chaos');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mendacibombus.*samba Bombia.*tango);
@Negatives = split('\n',<<'EOT');
Mucidobombus
tarantella
Confusibombus
ballet
EOT

$page = get_page('action=rc rchostonly=tisch');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mucidobombus.*tarantella);
@Negatives = split('\n',<<'EOT');
Confusibombus
ballet
Bombia
tango
Mendacibombus
samba
EOT

$page = get_page('action=rc rchostonly=stuhl'); # no minor edits!
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mucidobombus.*tarantella Confusibombus.*ballet);
@Negatives = split('\n',<<'EOT');
Mendacibombus
samba
Bombia
tango
EOT

$page = get_page('action=rc rchostonly=stuhl showedit=1'); # with minor edits!
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mendacibombus.*samba);
@Negatives = split('\n',<<'EOT');
Mucidobombus
tarantella
Bombia
tango
Confusibombus
ballet
EOT

$page = get_page('action=rc rcuseronly=berta');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Mucidobombus.*tarantella Bombia.*tango);
@Negatives = qw(Confusibombus ballet Mendacibombus samba);

$page = get_page('action=rc rcuseronly=alex');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

@Positives = qw(Bombia.*tango);
@Negatives = qw(Mucidobombus tarantella Confusibombus ballet
		Mendacibombus samba);

$page = get_page('action=rc rcidonly=Bombia');
test_page($page, @Positives);
test_page_negative($page, @Negatives);

update_page('Mucidobombus', 'This is limbo.', 'flamenco');
$page = get_page('action=rc');
test_page($page, 'flamenco');
test_page_negative($page, 'tarantella');
$page = get_page('action=rc all=1');
test_page($page, 'flamenco');
test_page($page, 'tarantella');