”><xmp>TokuLog 改メ tokuhirom’s blog

■Test::Requires - Checks to see if the module can be loaded

「あのモジュールがインストールされてなかったら、このテストはスキップな」っていう設定をしたいときは結構あるんだけどもこれをちゃんと実装するのは意外と難しい。そして、設定が繁雑になりがちだ。

use Test::More;
plan "this test requires HTTP::MobileAttribute" unless eval "use HTTP::MobileAttribute; 1;";
plan tests => 10;

みたいなの毎回かくのめんどくね?plan を先にかいとくとエラーになるし。

っちうわけで、モジュールにしてみましたよ、と。今回つくった Test::Requires ていうのをつかうと、以下のようにかけますよ、と。

use Test::More tests => 10;
use Test::Requires qw/ HTTP::MobileAttribute /;

my $ma = HTTP::MobileAttribute->new;

ツイートする

Permalink | コメント(0) | トラックバック(0) | 10:37