前回「Testをはじめてみた1 - Perl日記」の続き。 Test::More等について箇条書き。 オブジェクト指向のテスト isa_ok() # 第一引数のobjが第二引数の所属クラスならok, 違うならnot ok 継承もok can_ok() # 第一引数のobjが第二引数のメソッドを呼び出せるならok, ダメならnot ok #!/usr/bin/perl # TestMore2.pl use Test::More tests => 5; use IO::File; my $io = IO::File->new(); isa_ok($io, 'IO::File'); isa_ok($io, 'IO::Handle'); isa_ok($io, 'CGI'); can_ok($io, 'open'); can_ok($io, 'header'); % perl TestMore2.