# Test::MockRandom
use strict;

use Test::More;

plan tests => 8;

#--------------------------------------------------------------------------#
# Test rand(@list) uses scalar context (in RandomList.pm)
#--------------------------------------------------------------------------#

use Test::MockRandom qw( CORE::GLOBAL );
use lib qw( ./t );
use RandomList;

for ( __PACKAGE__, "RandomList" ) {
    is( UNIVERSAL::can( $_, 'rand' ),
        undef, "rand should not have been imported into $_" );
}
for (qw ( srand oneish )) {
    can_ok( __PACKAGE__, $_ );
}

my $list = RandomList->new( 0, 1, 2, 3, 4, 5 );
isa_ok( $list, 'RandomList' );

srand(0);
is( $list->random(), 0, 'testing $list->random() -- return first element' );

srand( oneish() );
is( $list->random(), 5, 'testing $list->random() -- return last element' );

srand(.49);
is( $list->random(), 2, 'testing $list->random() -- return third element' );