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
|
use Test::More;
use Crypt::URandom qw(urandom urandom_ub getrandom);
ok(length(urandom(5000)) == 5000, 'urandom(5000) called successfully');
ok(length(urandom(1)) == 1, 'urandom(1) called successfully');
ok(length(urandom(0)) == 0, 'urandom(0) called successfully');
ok(length(urandom_ub(5000)) == 5000, 'urandom_ub(5000) called successfully');
ok(length(urandom_ub(1)) == 1, 'urandom_ub(1) called successfully');
ok(length(urandom_ub(0)) == 0, 'urandom_ub(0) called successfully');
my $getrandom = 1;
eval {
getrandom(1);
1;
} or do {
$getrandom = 0;
};
if ($getrandom) {
ok(length(getrandom(5000)) == 5000, 'getrandom(5000) called successfully');
ok(length(getrandom(1)) == 1, 'getrandom(1) called successfully');
ok(length(getrandom(0)) == 0, 'getrandom(0) called successfully');
}
done_testing();
|
