Test::More 0.94からsubtest()ってのが使えるので、Any::Mooseみたいな根本的な切り替えが入っちゃうコードの検証に、こんなテストが書けることに今日気づいた。

use strict;
use Test::More;

local $ENV{ANY_MOOSE} = 'Moose';

my @files = ;
plan tests => scalar @files + 1;

while (my $file = shift @files) {
    subtest $file => sub { do $file };
}

ok( Any::Moose::moose_is_preferred() );

Data::Localize 0.00013 に入れた。
タグ ：
#Perl