This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make some t/op/write.t failures more verbose
authorDave Mitchell <davem@fdisolutions.com>
Fri, 23 Jan 2004 23:06:49 +0000 (23:06 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 23 Jan 2004 23:06:49 +0000 (23:06 +0000)
p4raw-id: //depot/perl@22203

t/op/write.t

index 4f38bfb..ae9f8a5 100755 (executable)
@@ -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";
     }
 }