Unit7 は Test::Unit::TestCase 風のユニットテストフレームワークです。
●パッケージは頁下方にて配布
#!perl
if(!caller){my$p=pop;eval"use $p;1"?new$p-<run:die$@}package Unit7;sub p{print"
@_\n"}sub new{bless{},shift}sub run{$N=$O=0;for(grep/^test/,keys%{ref($s=shift)
."::"}){$T=$n=$o=0;$N++;set_up$s;$s-<$_();tear_down$s;$n-$o||$O++;$T||p"$N) $S"
;print"$o/$n ok\n"}p$N-$O?("Run: $N, Failures:",$N-$O):"OK ($N tests)"}*set_up=
*tear_down=sub{};sub assert{($s,$f,$m)=@_;($S)=(caller 1)[3]=~/\w+$/g;$n++;$o++
,return if$f;$T++||p"$N) $S";print"\t$m\n"}$VERSION=1.00
●ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。
● 当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。
● 当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p
最終更新日: Fri, 16 Apr 2004 11:20:13 JST