Test::More 0.94からsubtest()ってのが使えるので、Any::Mooseみたいな根本的な切り替えが入っちゃうコードの検証に、こんなテストが書けることに今日気づいた。
use strict; use Test::More; local $ENV{ANY_MOOSE} = 'Moose'; my @files = <t/*.t>; 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 に入れた。
カテゴリ
日常トラックバック(0)
このブログ記事に対するトラックバックURL: http://mt.endeworks.jp/cgi-bin/mt-tb.cgi/2470


コメントする