[prev] [thread] [next] [lurker] [Date index for 2002/08/23]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv19056 Modified Files: 10plugin_checkuser.t Log Message: 100 passing tests! Index: 10plugin_checkuser.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_checkuser.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- 10plugin_checkuser.t 23 Aug 2002 16:27:27 -0000 1.1 +++ 10plugin_checkuser.t 23 Aug 2002 16:28:50 -0000 1.2 @@ -6,8 +6,8 @@ use Siesta::Plugin::CheckUser; my $plugin = Siesta::Plugin::CheckUser->new; -my $me = Test::MockObject->new->mock( from => sub 'richardc@xxxxxxxxx.xxx' ); -my $sb = Test::MockObject->new->mock( from => sub 'silent_bob@xxxxx.xxxx' ); +my $me = Test::MockObject->new->mock( from => sub { 'richardc@xxxxxxxxx.xxx' } ); +my $sb = Test::MockObject->new->mock( from => sub { 'silent_bob@xxxxx.xxxx' } ); ok( !$plugin->process( $me ), "accept me" ); ok( $plugin->process( $sb ), "reject silent_bob" );
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52