Planificación de muertes en pruebas de perl

Question

¿Existe alguna manera de escribir pruebas para las llamadas Perl que espera que se mueran? Me gustaría verificar que ciertas llamadas morirán con entradas mal formateadas.

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

Ver Test::Exception:

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

Answer 2

Se envuelve la prueba en un bloque de eval { ... } y comprobar si $@ se estableció.

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