X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fpack.t;h=1c6222efe72e4fa7d4094ce8ab8c98686b020bf0;hb=17639bde299d25109390c82720c805c9f43b1309;hp=82568870aa8f3290c874eaa7053ac7e87268b1c8;hpb=44f0be639a72c23a82ef49a1790b9b38a494dd31;p=p5sagit%2Fp5-mst-13.2.git

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;
 }