diff options
Diffstat (limited to 't/io/dup.t')
| -rwxr-xr-x | t/io/dup.t | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/t/io/dup.t b/t/io/dup.t index 6e7d121848..21add4f0f4 100755 --- a/t/io/dup.t +++ b/t/io/dup.t @@ -6,7 +6,7 @@ BEGIN { } my $test = 1; -print "1..8\n"; +print "1..12\n"; print "ok 1\n"; open(DUPOUT,">&STDOUT"); @@ -33,7 +33,7 @@ print `$cmd`; # KNOWN BUG system() does not honor STDOUT redirections on VMS. if( $^O eq 'VMS' ) { - print "not ok $_ # TODO system() not honoring STDOUT redirect on VMS\n" + print "not ok $_ # TODO system() not honoring STDOUT redirect on VMS\n" for 6..7; } else { @@ -59,3 +59,21 @@ unlink 'Io.dup'; print STDOUT "ok 8\n"; +open(F,">&",1) or die "Cannot dup to numeric 1:$!"; +print F "ok 9\n"; +close(F); + +open(F,">&",'1') or die "Cannot dup to string '1':$!"; +print F "ok 10\n"; +close(F); + + +open(F,">&=",1) or die "Cannot dup to numeric 1:$!"; +print F "ok 11\n"; +close(F); + +open(F,">&=",'1') or die "Cannot dup to string '1':$!"; +print F "ok 12\n"; +close(F); + + |