2008/5/15 Ovid <[EMAIL PROTECTED]>: > ----- Original Message ---- > >> From: Fergal Daly <[EMAIL PROTECTED]> >> To: Gabor Szabo <[EMAIL PROTECTED]> >> Cc: Perl QA <perl-qa@perl.org> >> 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:
I've already been burned doing that which is why I'm asking for an API to be to be added. Of course once the API is added I can fall back to diddling privates for any version that doesn't have the API, F > 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/ >