perlでユニットテスト

仕事で少し試したので、備忘録として。
JUnitを使ったことがあると、何をやっているか直感的に分かるかもしれない。

サンプルコード（成功する場合）

#!/usr/bin/perl                                                                                                         
use strict;
use warnings;
use Test::Simple qw(no_plan);

#以下は成功する。                                                                                                    
ok(1 == 1, "TEST01");

実行結果

ok 1 - TEST01
1..1

サンプルコード（失敗する場合）

#!/usr/bin/perl                                                                                                         
use strict;
use warnings;
use Test::Simple qw(no_plan);

# 以下は失敗する。                                                                                                       
ok(1 == 2, "TEST01");

実行結果

not ok 1 - TEST01
# Failed test 'TEST01'
# at ./test2.pl line 7.
1..1
# Looks like you failed 1 test of 1.