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
|
use strict;
use warnings;
use Test::RequiresInternet 'test.wikipedia.org' => 80;
use Test::More tests => 3;
use MediaWiki::Bot;
my $t = __FILE__;
SKIP: {
skip('No account credentials provided in %ENV', 3)
unless $ENV{PWPUsername} and $ENV{PWPPassword};
my $agent = "MediaWiki::Bot tests (https://metacpan.org/MediaWiki::Bot; $t)";
my $bot = MediaWiki::Bot->new({
agent => $agent,
host => 'test.wikipedia.org',
login_data => { username => $ENV{PWPUsername}, password => $ENV{PWPPassword} },
protocol => 'https',
});
my $res = $bot->{api}->api({
action => 'query',
meta => 'userinfo',
uiprop => 'rights',
});
my @rights = @{ $res->{'query'}->{'userinfo'}->{'rights'} };
# grep is slow; might be worth using List::Util if the main module gains that as a dependency
if (! grep $_ eq 'suppressredirect', @rights) {
skip( qq{The account doesn't have the 'suppressredirect' right}, 3);
}
my $rand = rand();
my $status = $bot->move('User:Mike.lifeguard/37-move.t', "User:Mike.lifeguard/$rand", $agent);
if ((defined($bot->{'error'}->{'code'})) and ($bot->{'error'}->{'code'} == 3)) {
skip('You are blocked, cannot use editing tests', 3);
}
ok($status, 'Page moved successfully');
$status = $bot->move("User:Mike.lifeguard/$rand", 'User:Mike.lifeguard/37-move.t', $agent, { noredirect => 1 });
ok($status, 'Page moved back successfully');
my $text = $bot->get_text("User:Mike.lifeguard/$rand");
is($text, undef, 'Redirect creation successfully suppressed');
}
|
