From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 1 Sep 2013 20:33:49 +0000 (-0700)
Subject: line_debug.t: Add diagnostics
X-Git-Tag: upstream/5.20.0~2046
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5239c153d07c7f3ed720062743a8b89ae671a95f;p=platform%2Fupstream%2Fperl.git

line_debug.t: Add diagnostics
---

diff --git a/t/comp/line_debug.t b/t/comp/line_debug.t
index 175c71a..8361194 100644
--- 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;