[prev] [thread] [next] [lurker] [Date index for 2002/08/26]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv12574/t Modified Files: 10plugin_subscribe.t Log Message: change the imagined api of reply (implementing it next) Index: 10plugin_subscribe.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_subscribe.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- 10plugin_subscribe.t 24 Aug 2002 17:52:08 -0000 1.1 +++ 10plugin_subscribe.t 26 Aug 2002 17:34:52 -0000 1.2 @@ -15,13 +15,13 @@ my $mail = Test::MockObject->new ->mock( list => sub { $list } ) ->mock( from => sub { 'suzanne@lab' } ) - ->mock( reply => sub { $reply = join '', @_ } ); + ->mock( reply => sub { shift; $reply = { @_ }->{body} } ); ok( $plugin->process( $mail ), "request handled" ); -like( $reply, qr/You have been/, "subscribed suzanne" ); +like( $reply, qr/You have been successfully subscribed to escapees/, "subscribed suzanne" ); $mail->mock( from => sub { 'jay@jail' } ); ok( $plugin->process( $mail ) ); -like( $reply, qr/You could not be/, "subscribing jay failed" ); +like( $reply, qr/You could not be subscribed to escapees./, "subscribing jay failed" ); 1;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52