This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
d70b2ab258bc57ed96b52482d42a5e08acddb3a9
[perl5.git] / t / io / pipe.t
1 #!./perl
2
3 # $RCSfile: pipe.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:31 $
4
5 BEGIN {
6     chdir 't' if -d 't';
7     @INC = '../lib';
8     require Config; import Config;
9     unless ($Config{'d_fork'}) {
10         print "1..0\n";
11         exit 0;
12     }
13 }
14
15 $| = 1;
16 print "1..8\n";
17
18 open(PIPE, "|-") || (exec 'tr', 'YX', 'ko');
19 print PIPE "Xk 1\n";
20 print PIPE "oY 2\n";
21 close PIPE;
22
23 if (open(PIPE, "-|")) {
24     while(<PIPE>) {
25         s/^not //;
26         print;
27     }
28 }
29 else {
30     print STDOUT "not ok 3\n";
31     exec 'echo', 'not ok 4';
32 }
33
34 pipe(READER,WRITER) || die "Can't open pipe";
35
36 if ($pid = fork) {
37     close WRITER;
38     while(<READER>) {
39         s/^not //;
40         y/A-Z/a-z/;
41         print;
42     }
43 }
44 else {
45     die "Couldn't fork" unless defined $pid;
46     close READER;
47     print WRITER "not ok 5\n";
48     open(STDOUT,">&WRITER") || die "Can't dup WRITER to STDOUT";
49     close WRITER;
50     exec 'echo', 'not ok 6';
51 }
52
53
54 pipe(READER,WRITER) || die "Can't open pipe";
55 close READER;
56
57 $SIG{'PIPE'} = 'broken_pipe';
58
59 sub broken_pipe {
60     print "ok 7\n";
61 }
62
63 print WRITER "not ok 7\n";
64 close WRITER;
65
66 print "ok 8\n";