名前¶ Test::Unit::TestCase - ユニットテストフレームワークの基礎となるクラス 概要¶ package FooBar; use base qw(Test::Unit::TestCase); sub new { my $self = shift()->SUPER::new(@_); # your state for fixture here # 初期化に必要な手続きをここで記述する return $self; } sub set_up { # provide fixture # 準備に必要な記述 } sub tear_down { # clean up after test # テスト後に行う後始末 } sub test_foo { my $self = shift; my $obj = ClassUnderTest->new(...); $self->assert_n