Perl有没有很好的自动测试套件？

首先,您通常会使用Test :: More或Test :: Simple编写测试程序作为核心测试程序：

use Test::More tests => 2;

is 3,3,'basic equality should work';
ok !0,'... and zero should be false';

在内部,调用Test :: Builder将这些测试结果输出为TAP(Test Anything Protocol). Test ::线束(TAP ::线束周围的薄包装),读取和解释TAP,告诉您您的测试是否通过或失败.上面提到的“证明”工具与Test :: Harness捆绑在一起,所以我们来说,将以上内容保存在t /目录(标准Perl测试目录中)为“numbers.t”,然后可以使用以下命令运行：

prove --verbose t/numbers.t

或者在该目录中运行所有测试(递归地假定您想要进入子目录)：

prove --verbose -r t/

(–verbose,当然是可选的).

作为附注,不要使用TestUnit.许多人推荐它,但它很久以前被放弃,并没有与现代测试工具集成.