diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-06-06 13:30:51 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-06 21:49:47 +0200 |
| commit | 479ddbbe3c0c772d5afd4d07c81503d8bf4b2582 (patch) | |
| tree | f5ef0e190480e7a504ed1293b54ce486eb25ec08 /ext/IPC-Open3 | |
| parent | c539974a7236fc51f7acd42234a3610958f1b6c1 (diff) | |
| download | perl-479ddbbe3c0c772d5afd4d07c81503d8bf4b2582.tar.gz | |
Test that IPC::Open{2,3} correctly qualify file handles to their package.
Diffstat (limited to 'ext/IPC-Open3')
| -rw-r--r-- | ext/IPC-Open3/t/IPC-Open3.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ext/IPC-Open3/t/IPC-Open3.t b/ext/IPC-Open3/t/IPC-Open3.t index 2d86c7fc97..8ff410093f 100644 --- a/ext/IPC-Open3/t/IPC-Open3.t +++ b/ext/IPC-Open3/t/IPC-Open3.t @@ -14,7 +14,7 @@ BEGIN { } use strict; -use Test::More tests => 23; +use Test::More tests => 24; use IO::Handle; use IPC::Open3; @@ -96,6 +96,16 @@ $pid = open3 'WRITE', '>&STDOUT', 'ERROR', print WRITE "ok $test\n"; waitpid $pid, 0; +{ + package YAAH; + $pid = IPC::Open3::open3('QWACK_WAAK_WAAK', '>&STDOUT', 'ERROR', + $perl, '-e', main::cmd_line('print scalar <STDIN>')); + ++$test; + no warnings 'once'; + print QWACK_WAAK_WAAK "ok $test # filenames qualified to their package\n"; + waitpid $pid, 0; +} + # dup error: This particular case, duping stderr onto the existing # stdout but putting stdout somewhere else, is a good case because it # used not to work. |