view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use Test::More ( no_plan );

use_ok( 'Acme::Voodoo' );

my $doll = Acme::Voodoo->new( 'CGI' );

## make sure our doll is of the right class
isa_ok( $doll, 'Acme::Voodoo::Doll_0' );

## see if we can call a method on it
like( $doll->header(), qr{content-type: text/html}i, 'CGI voodooo doll works');

## see if we can see the pins (aka methods)
ok( $doll->pins() > 10, 'pins() found some pins' ); 

## see if we can sleep
my $start = time();
$doll->zombie( 2 );
$doll->header();
my $end = time();
ok( $end > $start+1, 'zombie() works' );