Commit | Line | Data |
61f2b451 |
1 | #!./perl |
2 | |
7a4c00b4 |
3 | |
61f2b451 |
4 | BEGIN { |
7a4c00b4 |
5 | unless(grep /blib/, @INC) { |
6 | chdir 't' if -d 't'; |
7 | @INC = '../lib' if -d '../lib'; |
8 | } |
9 | } |
10 | |
11 | use Config; |
12 | |
13 | BEGIN { |
14 | if(-d "lib" && -f "TEST") { |
15 | if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') { |
16 | print "1..0\n"; |
17 | exit 0; |
18 | } |
61f2b451 |
19 | } |
20 | } |
21 | |
22 | use IO::Pipe; |
23 | |
24 | $| = 1; |
25 | print "1..6\n"; |
26 | |
27 | $pipe = new IO::Pipe; |
28 | |
29 | $pid = fork(); |
30 | |
31 | if($pid) |
32 | { |
33 | $pipe->writer; |
34 | print $pipe "Xk 1\n"; |
35 | print $pipe "oY 2\n"; |
36 | $pipe->close; |
37 | wait; |
38 | } |
39 | elsif(defined $pid) |
40 | { |
41 | $pipe->reader; |
42 | $stdin = bless \*STDIN, "IO::Handle"; |
43 | $stdin->fdopen($pipe,"r"); |
44 | exec 'tr', 'YX', 'ko'; |
45 | } |
46 | else |
47 | { |
7a4c00b4 |
48 | die; |
61f2b451 |
49 | } |
50 | |
51 | $pipe = new IO::Pipe; |
52 | $pid = fork(); |
53 | |
54 | if($pid) |
55 | { |
56 | $pipe->reader; |
57 | while(<$pipe>) { |
58 | s/^not //; |
59 | print; |
60 | } |
61 | $pipe->close; |
62 | wait; |
63 | } |
64 | elsif(defined $pid) |
65 | { |
66 | $pipe->writer; |
67 | |
68 | $stdout = bless \*STDOUT, "IO::Handle"; |
69 | $stdout->fdopen($pipe,"w"); |
70 | print STDOUT "not ok 3\n"; |
71 | exec 'echo', 'not ok 4'; |
72 | } |
73 | else |
74 | { |
75 | die; |
76 | } |
77 | |
78 | $pipe = new IO::Pipe; |
79 | $pipe->writer; |
80 | |
81 | $SIG{'PIPE'} = 'broken_pipe'; |
82 | |
83 | sub broken_pipe { |
84 | print "ok 5\n"; |
85 | } |
86 | |
87 | print $pipe "not ok 5\n"; |
88 | $pipe->close; |
89 | |
90 | |
91 | print "ok 6\n"; |
92 | |