perlでテストファースト - 高知ではたらくひとのブログ私のperlのテスト環境について書いてみます。 perlスクリプトのテストには、Test::Moreモジュールを使っています。 使い方はこんな感じ。 Module.t use strict; use Test::More 'no_plan'; BEGIN{ use_ok('Module')}; my $r = Module->new; is ref($r), 'Module', 'ref'; # Module->newのクラスがModuleであればOK is $r->add(2,5), 5, 'add'; # add(2,5)をコールして5が返ってくればOK テストファイルが一杯できると、ひとつづつテストするのが面倒くさくなります。 そこで、以下のようなスクリプトを書いてテストをまとめて行うようにしています。 ちなみに、ここで使っているTest::Harnessモジュールは、Test::M
