diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-08-28 05:57:39 -0400 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-28 13:01:20 +0000 |
| commit | 17639bde299d25109390c82720c805c9f43b1309 (patch) | |
| tree | c4246006c7e555881455b60f4600d35b27dcc1a4 | |
| parent | 44f0be639a72c23a82ef49a1790b9b38a494dd31 (diff) | |
| download | perl-17639bde299d25109390c82720c805c9f43b1309.tar.gz | |
Adding the failure diagnostic
Message-ID: <20010828095738.E17775@blackrider>
p4raw-id: //depot/perl@11772
| -rw-r--r-- | pod/perlhack.pod | 2 | ||||
| -rwxr-xr-x | t/op/pack.t | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/pod/perlhack.pod b/pod/perlhack.pod index 43e04d4aa3..5aff68e492 100644 --- a/pod/perlhack.pod +++ b/pod/perlhack.pod @@ -1489,6 +1489,8 @@ write one easily. $out .= "ok $test\n"; print $out; + printf "# Failed test at line %d\n", (caller)[2] unless $ok; + $test++; return $ok; } diff --git a/t/op/pack.t b/t/op/pack.t index 82568870aa..1c6222efe7 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -19,6 +19,8 @@ sub ok { $out .= "ok $test\n"; print $out; + printf "# Failed test at line %d\n", (caller)[2] unless $ok; + $test++; return $ok; } |