Here's my test:
#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use MyTestMore 'no_plan', 'fail';
ok 1;
ok 1;
is 2, 3, 'bad';
ok 1;
Here's my output:
ok 1
ok 2
not ok 3 - bad
# Failed test 'bad'
# at /System/Library/Perl/5.8.6/Test/More.pm line 329.
Ovid wrote:
So we can preserve diagnostics, but we need help in cleaning up those
damned line numbers. Hook::LexWrap didn't have the magic I thought it
would.
ok() is now inside a wrapper so you're one level further down then it thinks.
Just add one to $Level and then take it back off again