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

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

From: clampr
Subject: [siesta-commit] siesta/t 10plugin_checkuser.t,NONE,1.1
Date: 17:27 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv18583

Added Files:
	10plugin_checkuser.t 
Log Message:
100 tests baby!


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

use Siesta::Plugin::CheckUser;
my $plugin = Siesta::Plugin::CheckUser->new;

my $me = Test::MockObject->new->mock( from => sub 'richardc@xxxxxxxxx.xxx' );
my $sb = Test::MockObject->new->mock( from => sub 'silent_bob@xxxxx.xxxx' );

ok( !$plugin->process( $me ), "accept me" );
ok(  $plugin->process( $sb ), "reject silent_bob" );



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