----- 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: 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/