perl - 如何使用 Test::Unit::Lite 框架运行单个测试？

Question

我正在使用 CPAN 中的 Test::Unit::Lite 模块来运行设置如下的测试：

t/FooTest.pm
t/BarTest.pm

我一直在使用 Test::Unit::Lite 手册页中的 test.pl 脚本运行所有测试，但是当我迭代测试的功能时，我无法弄清楚如何仅从一个文件运行测试。

从另一个答案来看，似乎只能通过将我的测试移动到子目录或以其他方式修改它们来做到这一点，但如果没有更简单的方法，我会感到惊讶。

Answer 1

想出了如何做到这一点。

在 test.pl 结束时，我换掉了

all_tests

并将其替换为

if (@ARGV) {
  for my $t (@ARGV) {
    Test::Unit::TestRunner->new->start($t);
  }
} else {
  all_tests;
}

我还必须添加

 unshift @INC, File::Spec->catdir($cwd, 't/tlib');

行后

 unshift @INC, File::Spec->catdir($cwd, 'lib');

现在我可以执行“test.pl FooTest”或“test.pl BarTest”或“test.pl”来运行所有测试。