This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Augment filesize limit note.
[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
LW
4
5print "1..6\n";
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
20if ($^O eq 'MSWin32') {
21 print `echo ok 4`;
22 print `echo ok 5 1>&2`; # does this work?
23}
24else {
25 system 'echo ok 4';
26 system 'echo ok 5 1>&2';
27}
378cc40b 28
a687059c
LW
29close(STDOUT);
30close(STDERR);
378cc40b 31
a687059c
LW
32open(STDOUT,">&dupout");
33open(STDERR,">&duperr");
378cc40b 34
68dc0745
PP
35if ($^O eq 'MSWin32') { print `type Io.dup` }
36else { system 'cat Io.dup' }
378cc40b
LW
37unlink 'Io.dup';
38
a687059c 39print STDOUT "ok 6\n";