[siesta-commit] siesta/t 02all_senders.t,NONE,1.1

[prev] [thread] [next] [lurker] [Date index for 2002/09/12]

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

Added Files:
	02all_senders.t 
Log Message:
New Sender API


--- NEW FILE: 02all_senders.t ---
#!perl -w
# $Id : $
# test all plugins maintian the Plugin API, and compile

use strict;
use File::Find::Rule qw(find);

my @files = find( name => '*.pm', in => 'blib/lib/Siesta/Send' );
require Test::More;
Test::More->import( tests => @files * 3 );

for my $file (@files) {
    $file =~ s{blib/lib/(.*).pm}{$1};
    $file =~ s{/}{::}g;
    require_ok($file);
    my $obj = $file->new;
    isa_ok( $obj, 'Siesta::Send' );
    no strict 'refs';
    ok( ${"$file\::DESCRIPTION"}, "$file has a description" );
}

• [siesta-commit] siesta/t 02all_senders.t,NONE,1.1 muttley 16:28 on 12 Sep 2002

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