This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tests for [perl #76474]
[perl5.git] / ext / IPC-Open3 / t / fd.t
1 #!./perl
2
3 BEGIN { require "../../t/test.pl"; }
4 use strict;
5 use warnings;
6
7 plan 1;
8
9 # [perl #76474]
10 ok !runperl(
11      switches => ['-MIPC::Open3', '-w'],
12      prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE})',
13      stderr => 1,
14    ),
15    "dup STDIN in a child process by using its file descriptor";