From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 23 Jan 2004 23:06:49 +0000 (+0000)
Subject: make some t/op/write.t failures more verbose
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=176ab42ac987e047ebcd48fa0f08231f4084718a;p=p5sagit%2Fp5-mst-13.2.git

make some t/op/write.t failures more verbose

p4raw-id: //depot/perl@22203
---

diff --git a/t/op/write.t b/t/op/write.t
index 4f38bfb..ae9f8a5 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -487,7 +487,9 @@ for my $tref ( @NumTests ){
         my $writeres = swrite( $writefmt, $val );
         $nt++;
 
-        print $expected eq $writeres ? "ok $nt\n" : "not ok $nt\n";
+        print $expected eq $writeres
+	    ? "ok $nt\n"
+	    : "not ok $nt\n# f=[$writefmt] exp=[$expected] got=[$writeres]\n";
     }
 }