Возможно ли иметь тестовый программный сбой в Perl?

Question

Возможно ли иметь мягкий провал теста в Perl?под мягким отказом я подразумеваю, что тест не пройден, но это не приведет к сбою набора тестов.

Answer 1

Этот может помочь ... Вы можете пометить блок тестов как 'TODO' следующим образом:

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

ok(1);

TODO: {
    local $TODO = 'is_odd() implementation still flakey';

    is( is_odd(3), 1, '3 is odd' );
};


done_testing();


sub is_odd {
  return rand() > 0.5 ? 1 : 0;
}

Пройдут ли тесты в блоке TODO или не пройдутвлияет на результат для скрипта.Однако, если тесты do пройдены, итоговый вывод prove сообщит вам, какой тест прошел «неожиданно».Подробный вывод prove -v предоставит полную диагностическую информацию для всех тестов, включая неудачные тесты TODO.