diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-26 06:40:52 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-26 06:40:52 -0700 |
| commit | a0ed8b7b5f7f6d6f98f7eab4d4b280d5922b2df2 (patch) | |
| tree | 3c3a04f258782f675c257a2021a85bd36bd3e73a /ext/IPC-Open3 | |
| parent | fb9b5b31d8a62644191f4e414a66124e86f30797 (diff) | |
| download | perl-a0ed8b7b5f7f6d6f98f7eab4d4b280d5922b2df2.tar.gz | |
tests for [perl #76474]
Diffstat (limited to 'ext/IPC-Open3')
| -rw-r--r-- | ext/IPC-Open3/t/fd.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t new file mode 100644 index 0000000000..2a9aeffa9d --- /dev/null +++ b/ext/IPC-Open3/t/fd.t @@ -0,0 +1,15 @@ +#!./perl + +BEGIN { require "../../t/test.pl"; } +use strict; +use warnings; + +plan 1; + +# [perl #76474] +ok !runperl( + switches => ['-MIPC::Open3', '-w'], + prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE})', + stderr => 1, + ), + "dup STDIN in a child process by using its file descriptor"; |