1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/env perl
use strict;
use warnings;
use Crypt::Random::Seed;
# NOTE: Just like random_bytes, try to read as little as possible.
use Test::More tests => 9;
my $source = Crypt::Random::Seed->new(NonBlocking=>1);
{
my @vals = $source->random_values();
is( scalar @vals, 0, "random_values() returns empty array");
}
{
my @vals = $source->random_values(undef);
is( scalar @vals, 0, "random_values(undef) returns empty array");
}
{
my @vals = $source->random_values(-1);
is( scalar @vals, 0, "random_values(-1) returns empty array");
}
{
my @vals = $source->random_values(0);
is( scalar @vals, 0, "random_values(0) returns empty array");
}
{
my @vals = $source->random_values(0.8);
is( scalar @vals, 0, "random_values(0.8) returns empty array");
}
{
my @vals = $source->random_values(2);
is( scalar @vals, 2, "random_values(2) returns two values");
ok( $vals[0] >= 0 && $vals[0] <= 4294967295, " first value in range");
ok( $vals[1] >= 0 && $vals[1] <= 4294967295, " second value in range");
}
# All in one.
my @seeds = Crypt::Random::Seed->new->random_values(2);
is( scalar @seeds, 2, "random_values(2) returns two values");
|
