From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 11 May 2003 15:40:08 +0000 (+0000)
Subject: Tests to prove Ticket 9468 is fixed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=317758861cdb698a2ee0bd53db0677ccd65a9eb2;p=p5sagit%2Fp5-mst-13.2.git

Tests to prove Ticket 9468 is fixed.

p4raw-id: //depot/perlio@19485
---

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