#!/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?');