3 # $RCSfile: pipe.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:31 $
8 open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
13 if (open(PIPE, "-|")) {
20 print STDOUT "not ok 3\n";
21 exec 'echo', 'not ok 4';
24 pipe(READER,WRITER) || die "Can't open pipe";
35 die "Couldn't fork" unless defined $pid;
37 print WRITER "not ok 5\n";
38 open(STDOUT,">&WRITER") || die "Can't dup WRITER to STDOUT";
40 exec 'echo', 'not ok 6';
44 pipe(READER,WRITER) || die "Can't open pipe";
47 $SIG{'PIPE'} = 'broken_pipe';
53 print WRITER "not ok 7\n";