prize-prize
1日数分で月3000円!

楽天ぴたっとアド
楽天のgoogleAdsenceでお小遣い!

■Ads by Google

上記の広告は１ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

prize-prize
1日数分で月3000円!

楽天ぴたっとアド
楽天のgoogleAdsenceでお小遣い!

EDIT --.--.--

■perlのUnitTestについて　- その2 -

perlのテストにはどんなモジュールが用意されているのか

Test::SimpleM

最も簡単なテストモジュールです。

簡単にしようできるの使ってみてください。
いかがテストコードのサンプル。

■テストコード
use Test::Simple tests => 1; # テストの数 ok(1 + 1 == 2); # テスト

■実行結果
1..1 ok 1

■テスト失敗時
1..1 not ok 1 # Failed test at hoge.pl line 2. # Looks like you failed 1 test of 1.

Test::Harness

テストコードをまとめて実行するためのツールがあります。
それはTest::Harnessをインストールすることでインストールされる「proveコマンド」です。

prove t/*.t
proveによって複数のテストを実行した結果が実行、表示されます。
このproveスクリプトはTest::Harnessモジュールを使用しています。

このテスト結果をとりまとめているのは「TAP」にあります。

TAP

TAPとはテスト結果出力するという単純なプロトコルです。

「ok」「not ok」と表示するだけの単純作業です。

このプロトコルはperl以外のプログラミング言語でも使用できます。

Test::More

Test::Simpleは簡単で使いやすいが、シンプルすぎて応用がききません。

なので私は、「Test::More」を使用しています。

Test::Simpleの「ok」以外に主な機能として以下が用意されています。

C言語	→	libtap
Python	→	PyTap
PHP	→	SimpleTestのTAP拡張

is( x, $y)	$xが$yと等しいか
like($got, qr/expected/)	正規表現にマッチしているか
cmp_ok($got, '<', $expected)	比較
is_deeply($got, $expected)	ネストした構造のデータが等しいかどうか

Test::Simpleを使用するならば、こちらを利用したほうが良いでしょう。