[prev] [thread] [next] [lurker] [Date index for 2002/09/15]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv19106/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.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- 10plugin_membersonly.t 15 Sep 2002 11:06:58 -0000 1.7 +++ 10plugin_membersonly.t 15 Sep 2002 11:34:06 -0000 1.8 @@ -16,8 +16,7 @@ my $mail = Test::MockObject->new->mock( from => sub { 'dante@quick-stop' } ) ->mock( reply => sub { $message = join '', @_ } ) - ->mock( list => sub { $list } ) - ->mock( to => sub { 'foo@xxx.xxx' } ); + ->mock( list => sub { $list } )->mock( to => sub { 'foo@xxx.xxx' } ); ok( $plugin->process($mail), "rejected dante" ); like( $message, qr{Non-member posting is disabled}, "said why" ); @@ -27,8 +26,7 @@ $mail = Test::MockObject->new->mock( from => sub { 'jay@xxxxxxxx.xxxxxxxxxx' } ) - ->mock( list => sub { $list } ) - ->mock( to => sub { 'foo@xxx.xxx' } ); + ->mock( list => sub { $list } )->mock( to => sub { 'foo@xxx.xxx' } ); ok( !$plugin->process($mail), "accepted jay" ); Index: 10plugin_subscribe.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_subscribe.t,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- 10plugin_subscribe.t 13 Sep 2002 20:50:26 -0000 1.4 +++ 10plugin_subscribe.t 15 Sep 2002 11:34:06 -0000 1.5 @@ -5,7 +5,7 @@ use Siesta::Plugin::Subscribe; -Siesta->connect(DBI => "dbi:SQLite:t/test.db"); +Siesta->connect( DBI => "dbi:SQLite:t/test.db" ); my $plugin = Siesta::Plugin::Subscribe->new; my $list =
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52