perlテストでの死亡の計画

Question

死ぬと予想されるPerlコールのテストを書く方法はありますか？私は、特定の呼び出しがフォーマットの悪い入力で死に至ることを確認したいと思います。

sub routine_a { 
    my $arg = shift; 
    die if $arg eq 'FOO'; 
    print "routine_a: $arg\n"; 
} 
sub routine_b { 
    my $arg = shift; 
    die if $arg eq 'BAR'; 
    print "routine_b: $arg\n"; 
} 

sub test_all { 
    assert(routine_a("blah")); 
    assert(routine_b("blab")); 
    assert_death(routine_a("FOO")); 
    assert_death(routine_b("BAR")); 
} 

Answer 1

はTest::Exceptionを参照してください：

use Test::Exception; 
dies_ok { $foo->method } 'expecting to die'; 

Answer 2

あなたはeval { ... }ブロック内のテストをラップし、$@が設定されたかどうか確認してください。

eval { test_thats_supposed_to_fail() }; 
ok($@ , "test failed like it was supposed to");