From: Michael G. Schwern Date: Tue, 28 Aug 2001 09:57:39 +0000 (-0400) Subject: Adding the failure diagnostic X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17639bde299d25109390c82720c805c9f43b1309;p=p5sagit%2Fp5-mst-13.2.git Adding the failure diagnostic Message-ID: <20010828095738.E17775@blackrider> p4raw-id: //depot/perl@11772 --- diff --git a/pod/perlhack.pod b/pod/perlhack.pod index 43e04d4..5aff68e 100644 --- a/pod/perlhack.pod +++ b/pod/perlhack.pod @@ -1489,6 +1489,8 @@ write one easily. $out .= "ok $test\n"; print $out; + printf "# Failed test at line %d\n", (caller)[2] unless $ok; + $test++; return $ok; } diff --git a/t/op/pack.t b/t/op/pack.t index 8256887..1c6222e 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -19,6 +19,8 @@ sub ok { $out .= "ok $test\n"; print $out; + printf "# Failed test at line %d\n", (caller)[2] unless $ok; + $test++; return $ok; }