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

#!./perl

# $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $

print "1..6\n";

print "ok 1\n";

open(dupout,">&STDOUT");
open(duperr,">&STDERR");

open(STDOUT,">Io.dup") || die "Can't open stdout";
open(STDERR,">&STDOUT") || die "Can't open stderr";

select(STDERR); $| = 1;
select(STDOUT); $| = 1;

print STDOUT "ok 2\n";
print STDERR "ok 3\n";
system 'echo ok 4';
system 'echo ok 5 1>&2';

close(STDOUT);
close(STDERR);

open(STDOUT,">&dupout");
open(STDERR,">&duperr");

system 'cat Io.dup';
unlink 'Io.dup';

print STDOUT "ok 6\n";
Commit	Line	Data
378cc40b	1	#!./perl
378cc40b	2
79072805	3	# $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
378cc40b	4
	5	print "1..6\n";
	6
	7	print "ok 1\n";
	8
a687059c	9	open(dupout,">&STDOUT");
a687059c	10	open(duperr,">&STDERR");
378cc40b	11
a687059c	12	open(STDOUT,">Io.dup") \|\| die "Can't open stdout";
a687059c	13	open(STDERR,">&STDOUT") \|\| die "Can't open stderr";
378cc40b	14
a687059c	15	select(STDERR); $\| = 1;
a687059c	16	select(STDOUT); $\| = 1;
378cc40b	17
a687059c	18	print STDOUT "ok 2\n";
a687059c	19	print STDERR "ok 3\n";
378cc40b	20	system 'echo ok 4';
	21	system 'echo ok 5 1>&2';
	22
a687059c	23	close(STDOUT);
a687059c	24	close(STDERR);
378cc40b	25
a687059c	26	open(STDOUT,">&dupout");
a687059c	27	open(STDERR,">&duperr");
378cc40b	28
	29	system 'cat Io.dup';
	30	unlink 'Io.dup';
	31
a687059c	32	print STDOUT "ok 6\n";