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
|
use strict;
use warnings;
use Test::RequiresInternet 'test.wikipedia.org' => 80;
use Test::More tests => 6;
use Test::Warn;
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',
});
{
my $user = 'Bad Username'; # has been blocked before
my $result = $bot->was_blocked($user);
my $bc;
warning_is(
sub { $bc = $bot->test_block_hist($user); },
'test_block_hist is an alias of was_blocked; please use the new method name. This alias might be removed in a future release',
'test_block_hist is deprecated'
);
ok($result, 'block history - has been blocked');
is($result, $bc, 'BC method agrees with current method');
}
{
my $user = 'Mike.lifeguard'; # I haven't ever been blocked
my $result = $bot->was_blocked($user);
my $bc;
warning_is(
sub { $bc = $bot->test_block_hist($user); },
'test_block_hist is an alias of was_blocked; please use the new method name. This alias might be removed in a future release',
'test_block_hist is deprecated'
);
ok(!$result, 'block history - never blocked');
is($result, $bc, 'BC method agrees with current method');
}
|
