1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
use strict;
use warnings;
use Test::RequiresInternet 'test.wikipedia.org' => 80;
use Test::More 0.96 tests => 3;
use MediaWiki::Bot;
my $t = __FILE__;
my $bot = MediaWiki::Bot->new({
agent => "MediaWiki::Bot tests (https://metacpan.org/MediaWiki::Bot; $t)",
host => 'test.wikipedia.org',
});
subtest 'patrolled' => sub { # issue 151
plan tests => 2;
my @contribs = $bot->contributions('Mike.lifeguard', 0);
ok(!$bot->{error}->{code}, 'No error in bot')
or diag explain $bot->{error};
ok(!$bot->{api}->{error}->{code}, 'No error in api')
or diag explain $bot->{api}->{error};
};
subtest 'contribs' => sub {
plan tests => 1;
my @contribs = $bot->contributions('Mike.lifeguard');
isa_ok $contribs[0], 'HASH', 'array of hashes' or diag explain \@contribs;
};
subtest 'multiple users' => sub {
plan tests => 3;
my @contribs = $bot->contributions(
['User:Mike.lifeguard', 'User:Reedy'],
undef,
undef,
'2015-01-01T00:00:00Z',
'2016-01-01T00:00:00Z',
);
isa_ok $contribs[0], 'HASH', 'array of hashes' or diag explain \@contribs;
my %users = map { $_->{user} => 1 } @contribs;
ok exists $users{'Mike.lifeguard'}, 'Mike.lifeguard is represented in the results'
or diag explain { users => [keys %users] };
ok exists $users{'Reedy'}, 'Reedy is represented in the results'
or diag explain { users => [keys %users] };
};
|
