# Testing File::RandomLine
use Test::More tests => 3;
use Test::MockRandom 'File::RandomLine';
use File::RandomLine;
my $rl = File::RandomLine->new("t/testdata.txt");
isa_ok( $rl, "File::RandomLine" );
srand( 0 );
is( $rl->next, "line two", "Testing with srand( 0 )" );
srand( oneish() );
is( $rl->next, "line one", "Testing with srand( oneish() )" );