Adding the failure diagnostic

[p5sagit/p5-mst-13.2.git] / t / op / pack.t

diff --git a/t/op/pack.t b/t/op/pack.t
index 8256887..1c6222e 100755 (executable)
--- 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;
 }