Add TODO test for RT#72016

diff --git a/ext/IPC-Open3/t/IPC-Open3.t b/ext/IPC-Open3/t/IPC-Open3.t
index 79d5ced..849b0ba 100644 (file)
--- a/ext/IPC-Open3/t/IPC-Open3.t
+++ b/ext/IPC-Open3/t/IPC-Open3.t
@@ -47,7 +47,7 @@ my ($pid, $reaped_pid);
 STDOUT->autoflush;
 STDERR->autoflush;
 
-print "1..22\n";
+print "1..23\n";
 
 # basic
 ok 1, $pid = open3 'WRITE', 'READ', 'ERROR', $perl, '-e', cmd_line(<<'EOF');
@@ -146,3 +146,25 @@ else {
        print WRITE "ok 22\n";
        waitpid $pid, 0;
 }
+
+# RT 72016
+eval{$pid = open3 'WRITE', 'READ', 'ERROR', '/non/existant/program'; };
+if (IPC::Open3::DO_SPAWN) {
+    if ($@ || waitpid($pid, 0) > 0) {
+       print "ok 23\n";
+    } else {
+       print "not ok 23\n";
+    }
+} else {
+    if ($@) {
+       # exec failure should throw exception in parent.
+       print "ok 23 # TODO RT 72016\n";
+    } else {
+       if (waitpid($pid, 0) > 0) {
+           # exec failure currently appears as child error.
+           print "not ok 23 # TODO RT 72016\n";
+       } else {
+           print "not ok 23\n";
+       }
+    }
+}