This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Changes.
[perl5.git] / t / io / dup.t
CommitLineData
378cc40b
LW
1#!./perl
2
79072805 3# $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
378cc40b 4
e4a4387c 5print "1..8\n";
378cc40b
LW
6
7print "ok 1\n";
8
a687059c
LW
9open(dupout,">&STDOUT");
10open(duperr,">&STDERR");
378cc40b 11
a687059c
LW
12open(STDOUT,">Io.dup") || die "Can't open stdout";
13open(STDERR,">&STDOUT") || die "Can't open stderr";
378cc40b 14
a687059c
LW
15select(STDERR); $| = 1;
16select(STDOUT); $| = 1;
378cc40b 17
a687059c
LW
18print STDOUT "ok 2\n";
19print STDERR "ok 3\n";
68dc0745
PP
20 print `echo ok 4`;
21 print `echo ok 5 1>&2`; # does this work?
e4a4387c
NIS
22 system 'echo ok 6';
23 system 'echo ok 7 1>&2';
378cc40b 24
a687059c
LW
25close(STDOUT);
26close(STDERR);
378cc40b 27
a687059c
LW
28open(STDOUT,">&dupout");
29open(STDERR,">&duperr");
378cc40b 30
2986a63f 31if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
68dc0745 32else { system 'cat Io.dup' }
378cc40b
LW
33unlink 'Io.dup';
34
e4a4387c 35print STDOUT "ok 8\n";
9394203c 36