Fix bad test output of IPC::Open2 in ext

diff --git a/ext/IPC-Open2/t/IPC-Open2.t b/ext/IPC-Open2/t/IPC-Open2.t
index fe21159..4c0f82d 100644 (file)
--- a/ext/IPC-Open2/t/IPC-Open2.t
+++ b/ext/IPC-Open2/t/IPC-Open2.t
@@ -38,8 +38,8 @@ ok($pid = open2 'READ', 'WRITE', $perl, '-e',
        cmd_line('print scalar <STDIN>'));
 ok(print WRITE "hi kid\n");
 ok(<READ> =~ /^hi kid\r?\n$/);
-ok(close(WRITE), $!);
-ok(close(READ), $!);
+ok(close(WRITE), "closing WRITE: $!");
+ok(close(READ), "closing READ: $!");
 $reaped_pid = waitpid $pid, 0;
-ok($reaped_pid == $pid, $reaped_pid);
-ok($? == 0, $?);
+ok($reaped_pid == $pid, "Reaped PID: $reaped_pid");
+ok($? == 0, "\$? should be zero ($?)");