[siesta-commit] siesta/t 20siesta.t,NONE,1.1

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

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

Added Files:
	20siesta.t 
Log Message:
beef up coverage

--- NEW FILE: 20siesta.t ---
#!perl -w
# beef up test coverage for Siesta.pm
use strict;
use Test::More tests => 7;
use Test::MockObject;

require_ok('Siesta');

is( Siesta->connect, undef, "connect" );
eval { Siesta->connect('impossible') };
ok($@);

Test::MockObject->fake_module( 'Siesta::Send::Sendmail',
                               new => sub { 'gerbils gerbils gerbils' } );
is(
    Siesta->sender,
    'gerbils gerbils gerbils',
    "->sender defaults to spawning a sendmail"
    );

is( Siesta->set_sender, undef, "set_sender" );
eval { Siesta->set_sender('impossible') };
ok($@);

my @plugins = Siesta->list_all_plugins;
ok( @plugins, 'list_all_plugins' );

• [siesta-commit] siesta/t 20siesta.t,NONE,1.1 clampr 11:36 on 15 Oct 2002

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