From 34d287cd638a067b38c4aa6d15d8c3d91fef42fc Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Fri, 4 Sep 2009 14:20:00 +0200 Subject: [PATCH] Fix bad test output of IPC::Open2 in ext --- ext/IPC-Open2/t/IPC-Open2.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 ')); ok(print WRITE "hi kid\n"); ok( =~ /^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 ($?)"); -- 1.8.3.1