是否有可能在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块中的测试是通过还是失败都不会影响脚本的结果.但是,如果测试确实通过,则摘要输出prove将告诉您"意外"传递了哪个测试.详细输出prove -v将为所有测试提供完整的诊断详细信息,包括TODO测试失败.