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
|
#!./perl
BEGIN {
chdir 't' if -d 't';
require './test.pl';
set_up_inc('../lib');
require Config; Config->import;
skip_all_if_miniperl();
}
$^O eq "MSWin32"
and skip_all("Win32 can't make a pipe non-blocking");
use strict;
use IO::Select;
$Config{d_pipe}
or skip_all("No pipe");
my ($in, $out);
pipe($in, $out)
or skip_all("Cannot pipe: $!");
$in->blocking(0)
or skip_all("Cannot make pipe non-blocking");
my $line = <$in>;
is($line, undef, "error reading");
ok(!$in->error, "but did not set error flag");
close $out;
$line = <$in>;
is($line, undef, "nothing to read, but eof");
ok(!$in->error, "still did not set error flag");
ok($in->eof, "did set eof");
ok(close($in), "close success");
done_testing();
|
