Perl testlerinde ölüm planlaması

Question

Perl çağrıları için ölmeyi beklediğiniz testleri yazmak için bir yol var mı? Belirli çağrıların zayıf biçimlendirilmiş girişlerle öleceğini doğrulamak istiyorum.

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 bakınız:

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

Answer 2

Bir eval { ... } blokta testi sarın ve $@ kuruldu olmadığını kontrol edin.

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