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
42
43
44
45
46
|
#! /usr/bin/perl -w
use strict;
use warnings;
use Test::More;
use English();
use Carp();
use English qw( -no_match_vars );
use Exporter();
use XSLoader();
use constant;
use overload;
SKIP: {
if ($^O eq 'MSWin32') {
skip("No functions to override in Win32", 1);
} else {
require FileHandle;
@INC = qw(blib/lib); # making sure we're testing pure perl version
require Crypt::URandom;
my $initial_length = 20;
my $initial_data = Crypt::URandom::urandom($initial_length);
ok(length $initial_data == $initial_length, "Correct number of bytes returned before fork:$initial_length");
if (my $pid = fork) {
my $parent_length = 30;
my $parent_data = Crypt::URandom::urandom($parent_length);
ok(length $parent_data == $parent_length, "Correct number of bytes returned in parent after fork:$parent_length");
waitpid $pid, 0;
ok($? == 0, "Correct number of bytes returned in child after fork");
} elsif (defined $pid) {
my $child_length = 15;
my $child_data = Crypt::URandom::urandom($child_length);
if (length $child_data == $child_length) {
exit 0;
} else {
exit 1;
}
} else {
die "Failed to fork:$!";
}
my $post_length = 20;
my $post_data = Crypt::URandom::urandom($post_length);
ok(length $post_data == $post_length, "Correct number of bytes returned after fork:$post_length");
}
}
done_testing();
|
