[p5sagit/p5-mst-13.2.git] / t / io.pipe

#!./perl

# $Header: io.pipe,v 3.0 89/10/18 15:26:30 lwall Locked $

$| = 1;
print "1..4\n";

open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
print PIPE "OK 1\n";
print PIPE "ok 2\n";
close PIPE;

if (open(PIPE, "-|")) {
    while(<PIPE>) {
	print;
    }
}
else {
    print STDOUT "ok 3\n";
    exec 'echo', 'ok 4';
}
Commit	Line	Data
378cc40b	1	#!./perl
378cc40b	2
a687059c	3	# $Header: io.pipe,v 3.0 89/10/18 15:26:30 lwall Locked $
378cc40b	4
	5	$\| = 1;
	6	print "1..4\n";
	7
	8	open(PIPE, "\|-") \|\| (exec 'tr', '[A-Z]', '[a-z]');
	9	print PIPE "OK 1\n";
	10	print PIPE "ok 2\n";
	11	close PIPE;
	12
	13	if (open(PIPE, "-\|")) {
	14	while(<PIPE>) {
	15	print;
	16	}
	17	}
	18	else {
a687059c	19	print STDOUT "ok 3\n";
378cc40b	20	exec 'echo', 'ok 4';
378cc40b	21	}