t/io/dup.t

   1 #!./perl
   2
   3 # $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
   4
   5 print "1..8\n";
   6
   7 print "ok 1\n";
   8
   9 open(dupout,">&STDOUT");
  10 open(duperr,">&STDERR");
  11
  12 open(STDOUT,">Io.dup") || die "Can't open stdout";
  13 open(STDERR,">&STDOUT") || die "Can't open stderr";
  14
  15 select(STDERR); $| = 1;
  16 select(STDOUT); $| = 1;
  17
  18 print STDOUT "ok 2\n";
  19 print STDERR "ok 3\n";
  20     print `echo ok 4`;
  21     print `echo ok 5 1>&2`; # does this work?
  22     system 'echo ok 6';
  23     system 'echo ok 7 1>&2';
  24
  25 close(STDOUT);
  26 close(STDERR);
  27
  28 open(STDOUT,">&dupout");
  29 open(STDERR,">&duperr");
  30
  31 if ($^O eq 'MSWin32') { print `type Io.dup` }
  32 else                  { system 'cat Io.dup' }
  33 unlink 'Io.dup';
  34
  35 print STDOUT "ok 8\n";
  36