File: 01-OO.t

package info (click to toggle)
libmath-random-oo-perl 0.22-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 216 kB
  • sloc: perl: 671; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 425 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl
use strict;
use warnings;
use blib;  

# Math::Random::OO  

use Test::More tests =>  6 ;

BEGIN { use_ok( 'Math::Random::OO' ); }

my $obj = Math::Random::OO->new ();
isa_ok ($obj, 'Math::Random::OO');
isa_ok ($obj->new, 'Math::Random::OO');
can_ok ($obj, qw( seed next ) );
eval { $obj->seed() };
ok( $@, 'does seed abstract method die?' );
eval { $obj->next() };
ok( $@, 'does next abstract method die?');