forked from github/kensanata.oddmuse
eadeb460f5
DuckDuckGo search doesn't use the www subdomain anymore. The raw recent changes returns the bogus hash (four octal digits) instead of Anonymous before maintenance anonymises the entry.
212 lines
5.9 KiB
Perl
212 lines
5.9 KiB
Perl
# Copyright (C) 2006–2015 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: \d\d\d\d',
|
||
'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');
|