3 # $Header: pipe.t,v 4.0 91/03/20 01:51:02 lwall Locked $
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";