Adding the failure diagnostic
Michael G. Schwern [Tue, 28 Aug 2001 09:57:39 +0000 (05:57 -0400)]
Message-ID: <20010828095738.E17775@blackrider>

p4raw-id: //depot/perl@11772

pod/perlhack.pod
t/op/pack.t

index 43e04d4..5aff68e 100644 (file)
@@ -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;
     }
index 8256887..1c6222e 100755 (executable)
@@ -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;
 }