[siesta-commit] siesta/t 10plugin_subscribe.t,NONE,1.1

[prev] [thread] [next] [lurker] [Date index for 2002/08/24]

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

Added Files:
	10plugin_subscribe.t 
Log Message:
basic test


--- NEW FILE: 10plugin_subscribe.t ---
#!perl -w
use strict;
use Test::More tests => 4;
use Test::MockObject;

use Siesta::Plugin::Subscribe;

my $plugin = Siesta::Plugin::Subscribe->new;
my $list = Test::MockObject->new
  ->mock( id         => sub { 'escapees' } )
  ->mock( owner      => sub { 'houdini@elsewhere' } )
  ->mock( add_member => sub { $_[1] eq 'suzanne@lab' } );

my $reply;
my $mail = Test::MockObject->new
  ->mock( list  => sub { $list } )
  ->mock( from  => sub { 'suzanne@lab' } )
  ->mock( reply => sub { $reply = join '', @_ } );

ok( $plugin->process( $mail ), "request handled" );
like( $reply, qr/You have been/, "subscribed suzanne" );

$mail->mock( from => sub { 'jay@jail' } );
ok( $plugin->process( $mail ) );
like( $reply, qr/You could not be/, "subscribing jay failed" );

1;

• [siesta-commit] siesta/t 10plugin_subscribe.t,NONE,1.1 clampr 18:52 on 24 Aug 2002

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