我能知道所有的测试是否通过Perl的测试::更多?

您可以访问测试的当前状态。 Test::Builder ,可通过 Test::More->builder :

use strict;
use warnings;
use Test::More tests => 1;

ok(int rand 2, 'this test randomly passes or fails');

if (Test::More->builder->is_passing)
{
    print "hooray!\n";
}
else
{
    print "aw... :(\n";
}

或者,你可以在脚本末尾进行清理,但是如果事情出错,你可以提前退出。 Test::More 的 BAIL_OUT("reason why you are bailing"); 。

关于测试的状态,你可以收集很多其他的数据和统计数据; 测试::生成器 .

这里是我为了避免“无法定位对象方法”错误而提出的答案:

#! /usr/bin/perl 

use strict;
use warnings;
use Test::More tests => 1;

ok(int rand 2, 'this test randomly passes or fails');

my $FAILcount = 0;
foreach my $detail (Test::Builder->details()) {
    if (${%$detail}{ok}==0) { $FAILcount++; }
}

if ($FAILcount == 0) {
    print "hooray!\n";
} else {
    print "aw... :(\n";
}

在solaris 10上,使用perl v5.8.4(有31个注册的补丁),我得到了以下结果

Can't locate object method "is_passing" via package "Test::Builder"