line_debug.t: Add diagnostics

diff --git a/t/comp/line_debug.t b/t/comp/line_debug.t
index 175c71a..8361194 100644 (file)
--- a/t/comp/line_debug.t
+++ b/t/comp/line_debug.t
@@ -6,6 +6,7 @@ sub ok {
     my($test,$ok) = @_;
     print "not " unless $ok;
     print "ok $test\n";
+    $ok;
 }
 
 # The auxiliary file contains a bunch of code that systematically exercises
@@ -25,7 +26,10 @@ ok 1, scalar(@{"_<comp/line_debug_0.aux"}) == 1+$nlines;
 ok 2, !defined(${"_<comp/line_debug_0.aux"}[0]);
 
 for(1..$nlines) {
-       ok 2+$_, ${"_<comp/line_debug_0.aux"}[$_] eq $lines[$_-1];
+    if (!ok 2+$_, ${"_<comp/line_debug_0.aux"}[$_] eq $lines[$_-1]) {
+       print "# Got: ", ${"_<comp/line_debug_0.aux"}[$_]//"undef\n";
+       print "# Expected: $lines[$_-1]";
+    }
 }
 
 1;