Change 11772 by sky@sky-lab on 2001/08/28 13:01:20
Subject: [PATCH t/op/pack.t pod/perlhack.pod] Adding the failure diagnostic
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Tue, 28 Aug 2001 09:57:39 -0400
Message-ID: <20010828095738.E17775@blackrider>
Affected files ...
... //depot/perl/pod/perlhack.pod#35 edit
... //depot/perl/t/op/pack.t#41 edit
Differences ...
==== //depot/perl/pod/perlhack.pod#35 (text) ====
Index: perl/pod/perlhack.pod
--- perl/pod/perlhack.pod.~1~ Tue Aug 28 07:15:05 2001
+++ perl/pod/perlhack.pod Tue Aug 28 07:15:05 2001
@@ -1489,6 +1489,8 @@
$out .= "ok $test\n";
print $out;
+ printf "# Failed test at line %d\n", (caller)[2] unless $ok;
+
$test++;
return $ok;
}
==== //depot/perl/t/op/pack.t#41 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t.~1~ Tue Aug 28 07:15:05 2001
+++ perl/t/op/pack.t Tue Aug 28 07:15:05 2001
@@ -19,6 +19,8 @@
$out .= "ok $test\n";
print $out;
+ printf "# Failed test at line %d\n", (caller)[2] unless $ok;
+
$test++;
return $ok;
}
End of Patch.
