[siesta-commit] siesta/t 10plugin_membersonly.t,1.6,1.7

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

Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv13559/t

Modified Files:
	10plugin_membersonly.t 
Log Message:
Change to fix test failure.


Index: 10plugin_membersonly.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/10plugin_membersonly.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 10plugin_membersonly.t	12 Sep 2002 12:55:32 -0000	1.6
+++ 10plugin_membersonly.t	15 Sep 2002 11:06:58 -0000	1.7
@@ -8,6 +8,7 @@
 use Siesta::Plugin::MembersOnly;
 
 Siesta->connect( DBI => "dbi:SQLite:t/test.db" );
+Siesta->set_sender('Null');
 
 my $message;
 my $plugin = Siesta::Plugin::MembersOnly->new;
@@ -15,7 +16,8 @@
 my $mail   =
   Test::MockObject->new->mock( from => sub { 'dante@quick-stop' } )
   ->mock( reply => sub { $message = join '', @_ } )
-  ->mock( list => sub { $list } );
+  ->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" );
@@ -25,7 +27,8 @@
 
 $mail =
   Test::MockObject->new->mock( from => sub { 'jay@xxxxxxxx.xxxxxxxxxx' } )
-  ->mock( list => sub { $list } );
+  ->mock( list => sub { $list } ) 
+  ->mock( to => sub { 'foo@xxx.xxx' } );
 
 ok( !$plugin->process($mail), "accepted jay" );
 

• [siesta-commit] siesta/t 10plugin_membersonly.t,1.6,1.7 muttley 12:07 on 15 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52