仅在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' );
    }