From 317758861cdb698a2ee0bd53db0677ccd65a9eb2 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Sun, 11 May 2003 15:40:08 +0000 Subject: [PATCH] Tests to prove Ticket 9468 is fixed. p4raw-id: //depot/perlio@19485 --- t/io/dup.t | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/t/io/dup.t b/t/io/dup.t index 6e7d121..21add4f 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); + + -- 2.7.4