BEGIN { use_ok('List::Index' => 'rangematch'); }
+eval { Test::More->VERSION(0.93) } or eval q{
+ diag "Install Test::More v0.93 to run subtests\n";
+ sub subtest {
+ SKIP: { skip 'subtest', 1; }
+ }
+};
+
my @RANGETESTS = (
['single prefix',
[ q => 'q'],
for (@RANGETESTS) {
my ($name, @tests) = @$_;
- subtest $name => sub {
+ subtest($name => sub {
plan tests => scalar @tests;
for (@tests) {
my ($in, $out) = @$_;
);
diag($@) if $@;
}
- };
+ });
}