perl - 是否有可能在 Perl 中进行测试软失败？

Question

在 Perl 中是否可能出现测试软失败？软失败是指测试失败，但不会导致测试套件失败。

Answer 1

这可能有帮助...您可以像这样将测试 block 标记为“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 block 中的测试是否通过不会影响脚本的结果。但是，如果测试确实 通过了，prove 的摘要输出将告诉您哪个测试“意外”通过了。 prove -v 的详细输出将提供所有测试的完整诊断详细信息，包括失败的 TODO 测试。