# Sub setup
sub runtest{
- my ($message, $expect, $comment) = @_;
- undef $last_msg;
- $self->S_public($mockirc, $rmgv, \$channels, \$message);
- is($last_msg, $expect, $comment)
+ my ($message, $expect, $comment) = @_;
+ undef $last_msg;
+ $self->S_public($mockirc, $rmgv, \$channels, \$message);
+ is($last_msg, $expect, $comment)
}
runtest 'something', undef, 'initialize';
-runtest 'bot: seen mgv', 'I last saw mgv now on #chan saying something', 'public';
+runtest 'seen mgv', 'I last saw mgv now on #chan saying something', 'public';
$self->S_ctcp_action($mockirc, $rmgv, \$channels, \'sleeping');
-runtest 'bot: seen mgv', 'I last saw mgv now on #chan doing: * sleeping', 'ctcp_action';
+runtest '!seen mgv', 'I last saw mgv now on #chan doing: * sleeping', 'ctcp_action';
$self->S_join($mockirc, $rmgv, \'#chan');
runtest 'bot: seen mgv', 'I last saw mgv now joining #chan', 'join';
$self->S_part($mockirc, $rmgv, \'#chan', \'');
-runtest 'bot: seen mgv', 'I last saw mgv now parting #chan', 'part without message';
+runtest 'bot: !seen mgv', 'I last saw mgv now parting #chan', 'part without message';
$self->S_part($mockirc, $rmgv, \'#chan', \'buh-bye');
runtest 'bot: seen mgv', "I last saw mgv now parting #chan with message 'buh-bye'", 'part with message';