--- ONLY hack for Perl5's Test::More::subtest

Test::Base's "--- ONLY" feature is very cool. but so Test::Base is too smart. I want to use Test::More::subtest.
But test::more::subtest doesn't support '--- ONLY' like feature. orz.

But i found the hack for this issue. please look following code.

use Test::More 0.96;

goto ONLY if $ENV{ONLY};
subtest 'skip this test' => sub {
   ...
};

ONLY:
subtest 'run this test' => sub {
   ...
};
die if $ENV{ONLY};

subtest 'do not run this test' => sub {
   ...
};

done_testing;

And run this test code like "ONLY=1 perl mytest.t"!

goto is awesome!!!

Published: 2012-07-05(Thu) 01:04