This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test various dup/external program options on all platforms.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Wed, 6 Dec 2000 19:21:57 +0000 (19:21 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Wed, 6 Dec 2000 19:21:57 +0000 (19:21 +0000)
p4raw-id: //depot/perlio@8018

t/io/dup.t

index af13d4d..9b656ec 100755 (executable)
@@ -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";