ext/IPC-Open3/t/fd.t

   1 #!./perl
   2
   3 BEGIN {
   4     if (!PerlIO::Layer->find('perlio') || $ENV{PERLIO} eq 'stdio') {
   5         print "1..0 # Skip: not perlio\n";
   6         exit 0;
   7     }
   8     require "../../t/test.pl";
   9 }
  10 use strict;
  11 use warnings;
  12
  13 plan 2;
  14
  15 # [perl #76474]
  16 {
  17   my $stderr = runperl(
  18      switches => ['-MIPC::Open3', '-w'],
  19      prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q _-e0_)',
  20      stderr => 1,
  21      stdin => '',
  22   );
  23   {
  24       local $::TODO = "Bogus warning in IPC::Open3::spawn_with_handles"
  25           if $^O eq 'MSWin32';
  26       $stderr =~ s/(Use of uninitialized value.*Open3\.pm line \d+\.)\n//;
  27       is($1, undef, 'No bogus warning found');
  28   }
  29
  30   is $stderr, '',
  31    "dup STDOUT in a child process by using its file descriptor";
  32 }