projects
/
poe-component-irc-plugin-hello.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9e1acbc
)
Remove useless comments and add shebang to test
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 7 Jun 2014 19:54:23 +0000
(22:54 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 7 Jun 2014 19:54:23 +0000
(22:54 +0300)
t/POE-Component-IRC-Plugin-Hello.t
patch
|
blob
|
blame
|
history
diff --git
a/t/POE-Component-IRC-Plugin-Hello.t
b/t/POE-Component-IRC-Plugin-Hello.t
index dab4d9ccd4e95e8c362e50d1fd2c173ec76e060e..7eae8c836340f10db51c75184d4581d9a1134ff2 100644
(file)
--- a/
t/POE-Component-IRC-Plugin-Hello.t
+++ b/
t/POE-Component-IRC-Plugin-Hello.t
@@
-1,3
+1,4
@@
+#!/usr/bin/perl -w
use v5.14;
use strict;
use warnings;
use v5.14;
use strict;
use warnings;
@@
-7,7
+8,6
@@
use Test::MockObject;
BEGIN { use_ok('POE::Component::IRC::Plugin::Hello') };
BEGIN { use_ok('POE::Component::IRC::Plugin::Hello') };
-# Variable setup
my $hello_sent;
my $mockirc = Test::MockObject->new;
my $hello_sent;
my $mockirc = Test::MockObject->new;
@@
-16,7
+16,6
@@
$mockirc->mock(yield => sub { $hello_sent = 1 })->set_always(nick_name => 'hello
my $self = POE::Component::IRC::Plugin::Hello->new;
my $channels = [ '#chan' ];
my $self = POE::Component::IRC::Plugin::Hello->new;
my $channels = [ '#chan' ];
-# Sub setup
sub runtest{
my ($message, $expect, $comment) = @_;
$hello_sent=0;
sub runtest{
my ($message, $expect, $comment) = @_;
$hello_sent=0;
@@
-24,7
+23,6
@@
sub runtest{
ok($hello_sent == $expect, $comment)
}
ok($hello_sent == $expect, $comment)
}
-#Tests
runtest 'privet', 1, 'simple privet';
runtest 'PrIvEt', 1, 'privet in mixed case';
runtest ' privet ', 1, 'privet with spaces';
runtest 'privet', 1, 'simple privet';
runtest 'PrIvEt', 1, 'privet in mixed case';
runtest ' privet ', 1, 'privet with spaces';
This page took
0.011197 seconds
and
4
git commands to generate.