Lập kế hoạch cho các trường hợp tử vong trong các thử nghiệm perl

Question

Có cách nào để viết các bài kiểm tra cho các cuộc gọi Perl mà bạn muốn chết không? Tôi muốn xác minh rằng một số cuộc gọi nhất định sẽ chết với các đầu vào được định dạng kém.

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

Xem Test::Exception:

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

Answer 2

Bạn quấn thử nghiệm bên trong khối eval { ... } và kiểm tra xem $@ được thành lập.

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