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

[prev] [thread] [next] [lurker] [Date index for 2002/10/10]

Update of /cvsroot/siesta/plugins/checkuser/t
In directory usw-pr-cvs1:/tmp/cvs-serv24787/t

Added Files:
	10plugin_checkuser.t 
Log Message:
fork own distribution

--- 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" );

• [siesta-commit] plugins/checkuser/t 10plugin_checkuser.t,NONE,1.1 clampr 13:24 on 10 Oct 2002

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