[prev] [thread] [next] [lurker] [Date index for 2002/10/10]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv4059/t Modified Files: 10plugin_membersonly.t 10plugin_subscribe.t Log Message: perltidy Index: 10plugin_membersonly.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_membersonly.t,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- 10plugin_membersonly.t 10 Oct 2002 12:48:34 -0000 1.9 +++ 10plugin_membersonly.t 10 Oct 2002 12:58:49 -0000 1.10 @@ -9,15 +9,12 @@ Siesta->connect( DBI => "dbi:SQLite:t/test.db" ); - -my $sender = Test::MockObject->new->fake_module - ( - 'Siesta::Send::Fake', - new => sub { - Test::MockObject->new->mock( send => sub {} ); - } - ); - +my $sender = Test::MockObject->new->fake_module( + 'Siesta::Send::Fake', + new => sub { + Test::MockObject->new->mock( send => sub { } ); + } + ); Siesta->set_sender('Fake'); Index: 10plugin_subscribe.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_subscribe.t,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- 10plugin_subscribe.t 10 Oct 2002 11:27:43 -0000 1.8 +++ 10plugin_subscribe.t 10 Oct 2002 12:58:49 -0000 1.9 @@ -19,7 +19,7 @@ Test::MockObject->new->mock( id => sub { 'escapees' } ) ->mock( owner => sub { 'houdini@elsewhere' } ) ->mock( add_member => sub { $_[1] eq 'suzanne@lab' || $_[1] eq 'foo@bar' } ) - ->mock( is_member => sub { $_[1] eq $juser->id } ); + ->mock( is_member => sub { $_[1] eq $juser->id } ); my $mail = Test::MockObject->new->mock( list => sub { $list } )
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52