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 1;
  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   unlike $stderr, qr/open3/,
  24    "dup STDIN in a child process by using its file descriptor";
  25 }