Planung für Todesfälle in Perl-Tests

Question

Gibt es eine Möglichkeit, Tests für Perl-Aufrufe zu schreiben, die Sie erwarten zu sterben? Ich möchte überprüfen, dass bestimmte Anrufe mit schlecht formatierten Eingaben absterben.

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

Siehe Test::Exception:

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

Answer 2

Sie wickeln den Test in einem eval { ... } Block und prüfen, ob $@ gesetzt wurde.

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