はてなブックマーク

PerlでUnitテストするようなツールはいくつもあるのですが、とりあえず今回はdebianのパッケージにも登録されていて、JUnitぽいつくりになっているperlunitでいきたいと思います。 インストール debianなので、libtest-unit-perlをインストールする。 テストを書く とりあえず、肝心なところだけ書くと use base qw(Test::Unit::TestCase); sub test_hogehoge { #ここにテストを書く my $this = shift(); my $hoge = new Hogehoge(); # テストでよく使うのは、数値を比較するassert_num_equals $this->assert_num_equals(10, $hoge->getHoge()); # や文字列を比較するassert_str_equals $thi