在Perl测试工具中定时测试

Question

我如何在Perl测试工具中暂停测试？

我尝试使用Test::Timer模块，但我似乎无法使其与TAP::Harness很好地连接，以便为每个测试设置嵌入式超时功能。另外，我不想测试一段代码是否花费x时间来完成，我只是想运行我的测试并暂停以防它们因任何原因挂起。

Answer 1

最近有a similar question on PerlMonks。

安装Time::Limit。

此模块允许您为各个测试文件设置时间限制：

use Test::More;
use Time::Limit "30";   # 30 seconds, quote marks are necessary!

或者设置运行整个测试套件的总时间限制：

prove -MTime::Limit=120 t/*.t

如果您使用的是forkprove而不是prove，那么您需要时间限制器来终止整个流程组：

forkprove -MTime::Limit=-group,120 t/*.t