X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FPOE-Component-IRC-Plugin-Seen.t;h=fdf55aebc6d041bf934b5116b868652ca9021649;hb=3b40dfa4a2dcb643aadafffdff3410b95a695417;hp=0a0d925ea9852c464d295c7b548098993ec1cba1;hpb=566f7a16502135cbf3ccd6c2821d7594853b1d65;p=poe-component-irc-plugin-seen.git

diff --git a/t/POE-Component-IRC-Plugin-Seen.t b/t/POE-Component-IRC-Plugin-Seen.t
index 0a0d925..fdf55ae 100644
--- a/t/POE-Component-IRC-Plugin-Seen.t
+++ b/t/POE-Component-IRC-Plugin-Seen.t
@@ -21,23 +21,23 @@ my $rmgv = \'mgv!marius@ieval.ro';
 
 # 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';