From 343bc60da8bfbdfbbbc323d930a805acbc00c27d Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Tue, 18 Sep 2007 11:25:14 -0700 Subject: [PATCH] t/TEST doesn't check exit (was Re: Test::More bug?) Message-ID: <46F07A7A.1060900@pobox.com> p4raw-id: //depot/perl@31896 --- t/TEST | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/TEST b/t/TEST index 5c6c613..e702ffb 100755 --- a/t/TEST +++ b/t/TEST @@ -479,6 +479,12 @@ EOT $failure="FAILED--expected $max tests, saw $next"; } + if( !defined $failure # don't mask a test failure + and $? ) + { + $failure = "FAILED--non-zero wait status: $?"; + } + if (defined $failure) { print "${te}$failure\n"; $::bad_files++; -- 2.7.4