use strict;
use warnings;
use Test::More tests => 1;
use MediaWiki::Bot;
my $t = __FILE__;
my $bot = MediaWiki::Bot->new({
agent => "MediaWiki::Bot tests ($t)",
host => 'test.wikipedia.org',
});
if(defined($ENV{'PWPMakeTestSetWikiHost'})) {
$bot->set_wiki($ENV{'PWPMakeTestSetWikiHost'}, $ENV{'PWPMakeTestSetWikiDir'});
}
my $rand = rand();
my $status = $bot->edit({
page => 'User:Mike.lifeguard/19-assert_edit.t',
text => $rand,
assert => 'false'
});
SKIP: {
skip q{You're blocked; cannot use this test}, 1 if
defined $bot->{'error'}->{'code'} and $bot->{'error'}->{'code'} == 3;
is($status->{'edit'}->{'result'}, undef, 'Intentionally bad assertion');
}