* Michael G Schwern <[EMAIL PROTECTED]> [2007-12-06 06:35]: > Right now you have to write this: > > use Test::More; > > if( $^O eq 'SomeOS' ) { > plan skip_all => "Tests don't apply to SomeOS": > } > else { > plan tests => 3; > } > > It's ugly and verbose and the decision to skip all has to come > before you do any testing at all.
Btw, I always do that like this: use Test::More; plan $^O eq 'SomeOS' ? skip_all => "Tests don't apply to SomeOS" : tests => 3; This is still a little more complex than the `skip_rest` version, but much less ugly than what you showed, and if this is a test in Regexp::Common and about to skip 14,291 assertions, it’s probably preferrable to use `skip_all` even if `skip_rest` is slightly simpler… That’s my only comment. Your plans are good (pun intended). Regards, -- Aristotle Pagaltzis // <http://plasmasturm.org/>