Tests to prove Ticket 9468 is fixed.

p4raw-id: //depot/perlio@19485

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);
+
+