[prev] [thread] [next] [lurker] [Date index for 2002/10/10]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv7336 Modified Files: 10plugin_subscribe.t Log Message: fixup Index: 10plugin_subscribe.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_subscribe.t,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- 10plugin_subscribe.t 20 Sep 2002 20:32:06 -0000 1.7 +++ 10plugin_subscribe.t 10 Oct 2002 11:27:43 -0000 1.8 @@ -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( members => sub { return ($juser) } ); + ->mock( is_member => sub { $_[1] eq $juser->id } ); my $mail = Test::MockObject->new->mock( list => sub { $list } ) @@ -39,7 +39,7 @@ like( $reply, qr/You have requested to be subscribed to/, "challenged suzanne" ); -# now try again +# now try again $subject = "FOO BAR"; ok( $plugin->process($mail), "request handled" ); like( $reply,
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52