perl - 仅在 Test::More 中报告失败的测试

Question

我对随机生成的数据进行了很多检查。如何仅针对失败的测试获取报告消息并且如果检查正常则不显示任何内容？

Answer 1

您可以使用fail例程。在任何 Test::More 代码之外进行检查，并使用该结果来决定是否输出测试消息。

foreach my $element ( @randomly_generated_data ) {
    my $result = ...; # your checks here
    next if $result;
    fail( 'Some message' );
    }