如何执行位于多个文件中的perl测试？

Question

为什么下面的代码只从check2.t文件执行测试？

#!/usr/bin/perl -w

use strict; 
use warnings; 
use Modern::Perl;

use TAP::Harness::JUnit;

my $harness = TAP::Harness::JUnit->new({
   xmlfile => 'output.xml',
   namemangle => 'hudson',
   merge => 1
});

$harness->runtests(['check1.t', 'check2.t']);

Answer 1

实际上，它在将其命名为check2.t的同时从check1.t运行测试。正如davorg指出的那样，runtests期望的是测试列表，而不是测试数组。它之所以看起来有效，是因为runtests还允许[ 'filename', 'comment' ]形式的测试条目，其中filename是测试文件的名称，comment是要显示的字符串。(这是基类TAP::Harness中的documented。)

Answer 2

它甚至可以从check2.t运行测试吗？documentation for the module说运行测试需要一个测试文件列表，而不是一个数组引用。尝试将runtest行更改为：

$harness->runtests('check1.t', 'check2.t');