From: Steffen Mueller <smueller@cpan.org>
Date: Fri, 4 Sep 2009 12:20:00 +0000 (+0200)
Subject: Fix bad test output of IPC::Open2 in ext
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=34d287cd638a067b38c4aa6d15d8c3d91fef42fc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 ($?)");