diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/Test/Simple/t/fail.t')
| -rw-r--r-- | gnu/usr.bin/perl/lib/Test/Simple/t/fail.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/Simple/t/fail.t b/gnu/usr.bin/perl/lib/Test/Simple/t/fail.t index a041ab0eb9b..fd272d17bf4 100644 --- a/gnu/usr.bin/perl/lib/Test/Simple/t/fail.t +++ b/gnu/usr.bin/perl/lib/Test/Simple/t/fail.t @@ -1,4 +1,5 @@ #!perl -w +# $Id$ BEGIN { if( $ENV{PERL_CORE} ) { @@ -14,6 +15,7 @@ use strict; require Test::Simple::Catch; my($out, $err) = Test::Simple::Catch::caught(); +local $ENV{HARNESS_ACTIVE} = 0; # Can't use Test.pm, that's a 5.005 thing. @@ -59,8 +61,10 @@ not ok 5 - damnit OUT My::Test::ok($$err eq <<ERR); -# Failed test ($0 at line 38) -# Failed test ($0 at line 39) +# Failed test 'oh no!' +# at $0 line 38. +# Failed test 'damnit' +# at $0 line 39. # Looks like you failed 2 tests of 5. ERR |