--- On Mon, 18/5/09, Gabor Szabo <[email protected]> wrote:
> From: Gabor Szabo <[email protected]>
> I have a test script that blows up after 18 calls to ok()
> inside
> the application printing only the line number in the
> application.
> I can search for the title of the ok() all but it would be
> nice if I
> could ask prove
> (maybe in the -d flag) to print the line number of each
> ok() call.
ok() generally comes from Test::Simple/Test::More, which in turn comes from
Test::Builder. It's the test builder which controls what can and cannot be
printed and it really doesn't have a direct way of handling this. Thus, I
don't think there's much which could be exposed via prove. (Seriously
hungover, though, so I might be talking complete bollocks -- again).
If it's a one-off, though, you could try the following (untested):
{
my $ok = \&Test::Builder::ok;
no warnings 'redefined';
*Test::Builder::ok = sub {
my ( $package, $filename, $line ) = caller;
$_[0]->diag("ok() called in $package, $filename at line $line");
goto $ok;
};
}
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Tech blog - http://use.perl.org/~Ovid/journal/
Twitter - http://twitter.com/OvidPerl
Official Perl 6 Wiki - http://www.perlfoundation.org/perl6
