From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 6 Dec 2000 19:21:57 +0000 (+0000)
Subject: Test various dup/external program options on all platforms.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4a4387cd67b57d9dfcb057f769a33143eec0663;p=p5sagit%2Fp5-mst-13.2.git

Test various dup/external program options on all platforms.

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

diff --git a/t/io/dup.t b/t/io/dup.t
index af13d4d..9b656ec 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -2,7 +2,7 @@
 
 # $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
 
-print "1..6\n";
+print "1..8\n";
 
 print "ok 1\n";
 
@@ -17,14 +17,10 @@ select(STDOUT); $| = 1;
 
 print STDOUT "ok 2\n";
 print STDERR "ok 3\n";
-if ($^O eq 'MSWin32') {
     print `echo ok 4`;
     print `echo ok 5 1>&2`; # does this work?
-}
-else {
-    system 'echo ok 4';
-    system 'echo ok 5 1>&2';
-}
+    system 'echo ok 6';
+    system 'echo ok 7 1>&2';
 
 close(STDOUT);
 close(STDERR);
@@ -36,5 +32,5 @@ if ($^O eq 'MSWin32') { print `type Io.dup` }
 else                  { system 'cat Io.dup' }
 unlink 'Io.dup';
 
-print STDOUT "ok 6\n";
+print STDOUT "ok 8\n";