Планирование смертей в Perl-тестах [дубликат]

На этот вопрос уже есть ответы здесь:

Возможно ли проверить ожидаемые ошибки, когда испытуемый выходит с ошибкой, используя TAP в Perl?(3 ответа)

Закрыто 5 лет назад.

Есть ли способ написать тесты для вызовов Perl, которые, как вы ожидаете, исчезнут? Я хотел бы убедиться, что некоторые вызовы будут умирать с плохо отформатированными входами.

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

задан ajwood 4 June 2012 в 16:09

0 ответов

Другие вопросы по тегам:

perl testing unit-testing

Планирование смертей в Perl-тестах [дубликат]

0 ответов

Похожие вопросы: