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
|
use strict;
use warnings;
use Test::RequiresInternet 'test.wikipedia.org' => 80;
use Test::More tests => 1;
use MediaWiki::Bot qw(:constants);
my $t = __FILE__;
my $bot = MediaWiki::Bot->new({
agent => "MediaWiki::Bot tests (https://metacpan.org/MediaWiki::Bot; $t)",
host => 'test.wikipedia.org',
});
my $rand = rand();
my $status = $bot->edit({
page => 'User:Mike.lifeguard/19-assert_edit.t',
text => $rand,
assert => 'bot', # was 'false', but AssertEdit isn't a standard extension
});
SKIP: {
skip q{Unexpected error: } . $bot->{error}->{details}, 1
if defined $bot->{error}->{code}
and $bot->{error}->{code} == ERR_API
and $bot->{error}->{details} !~ m{^assert\w+failed:};
is $status->{edit}->{result} => undef, 'Intentionally bad assertion'
or diag explain { edit => $status, error => $bot->{error} };
}
|
