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");