1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
use strict;
use lib 'lib';
use lib '../lib';
use Test::More tests => 1;
use GenTest::Random;
my $prng = GenTest::Random->new(
seed => 2
);
my $numbers = join(' ', map { $prng->digit() } (0..9));
ok($numbers eq '7 4 9 8 4 1 2 1 5 2', 'prng_stability');
|