簡易的に Test::Class っぽくかくライフハック

Test::Class みたいなかんじの雰囲気をかもしたいときにはこうするとよいのでは。

use strict;
use warnings;
use Test::More 0.98;

for my $key (keys %main::) {
    if ($key =~ /^test_(.+)$/) {
        subtest $1 => main->can($key);
    }
}
done_testing;

sub test_foo {
  ...
}

sub test_bar {
  ...
}

Published: 2011-10-31(Mon) 01:13