पर्ल परीक्षणों में मौतों की योजना

Question

क्या पर्ल कॉल के लिए परीक्षण लिखने का कोई तरीका है जिसे आप मरने की उम्मीद करते हैं? मैं यह सत्यापित करना चाहता हूं कि कुछ कॉल खराब प्रारूपित इनपुट के साथ मर जाएंगी।

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