----- Original Message ----
> From: Fergal Daly <[EMAIL PROTECTED]>
> To: Gabor Szabo <[EMAIL PROTECTED]>
> Cc: Perl QA <[email protected]>
> Sent: Thursday, May 15, 2008 1:15:50 PM
> Subject: Re: Test::NoWarnings and plan skip_all don't like each other
>
> This is because skip_all exists immediately but Test::NoWarnings has
> installed an END block that will run a test anyway. I suppose I should
> change T::NW to detect "skip_all" and not run its test but at the
> moment there is no T::B API for detecting "skip_all".
>
> MScwern, do you want to add one? What about BAIL_OUT?
If you don't mind diddling with TB's privates:
my $builder = Test::Builder->new; # singleton
if ( $builder->{Skip_All} ) { ... }
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog - http://use.perl.org/~Ovid/journal/
