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
|
use strict;
use warnings;
use Test::More 0.88;
use 5.008;
use IO::Handle;
use IO::Select;
use ok 'Crypt::Random::Source::Base::Handle';
SKIP: {
skip "Windows can't open a blocking child pipe", 2 if $^O =~ /Win32/i;
defined ( my $child = open my $fh, "-|" ) or die "open: $!";
if ($child) {
my $p = Crypt::Random::Source::Base::Handle->new( handle => $fh );
$p->blocking(0);
if ( IO::Select->new( $fh )->can_read(1) ) {
is( $p->get(5), "foo", "underread due to blocking" );
is( $p->get(5), '', "underread due to blocking" );
}
kill TERM => $child;
} else {
STDOUT->autoflush(1);
print "foo";
sleep 10;
print "bar";
exit;
}
}
done_testing;
# ex: set sw=4 et:
|
