tokuhirom's Blog

簡易的に 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 {
  ...
}