diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-09-01 13:33:49 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-01 13:34:28 -0700 |
| commit | 5239c153d07c7f3ed720062743a8b89ae671a95f (patch) | |
| tree | eb99db306a0d1e8724905654632a918cfaa7b04c /t/comp | |
| parent | ffdb8b167ec4e9c0f37371dfd7b0abb01e413f90 (diff) | |
| download | perl-5239c153d07c7f3ed720062743a8b89ae671a95f.tar.gz | |
line_debug.t: Add diagnostics
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/line_debug.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/comp/line_debug.t b/t/comp/line_debug.t index 175c71a65e..8361194bbf 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; |