[siesta-commit] siesta/t 10plugin_membersonly.t,1.7,1.8 10plugin_subscribe.t,1.4,1.5

[prev] [thread] [next] [lurker] [Date index for 2002/09/15]

From: clampr
Subject: [siesta-commit] siesta/t 10plugin_membersonly.t,1.7,1.8 10plugin_subscribe.t,1.4,1.5
Date: 12:34 on 15 Sep 2002
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