[prev] [thread] [next] [lurker] [Date index for 2002/08/28]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv32194/t Modified Files: 10plugin_replyto.t Log Message: stopping delivery considered harmful Index: 10plugin_replyto.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/10plugin_replyto.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- 10plugin_replyto.t 28 Aug 2002 09:09:56 -0000 1.1 +++ 10plugin_replyto.t 28 Aug 2002 09:26:36 -0000 1.2 @@ -12,8 +12,8 @@ $mail->list( Test::MockObject->new->mock( post_address => sub { $POST_ADDRESS } ) ); is ($mail->head->get("Reply-To"), undef, "blank"); -ok($plugin->process( $mail ) ); +ok( !$plugin->process( $mail ) ); is ($mail->head->get("Reply-To"), "$POST_ADDRESS\n", "munged once"); -ok($plugin->process( $mail ) ); +ok( !$plugin->process( $mail ) ); is ($mail->head->get("Reply-To"), "$POST_ADDRESS\n", "munged again");
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52