Perl Test::更多和设置测试要求

Question

对于Test::More，我经常希望有一个模块可以运行测试并能够中止调用者test_plan。我进行了一系列测试，为 Catalyst::Test 设置了插件列表。我不想进行测试来检查它们是否存在；相反，如果这些插件不存在，我希望我的脚本中止。

我试图找出 Catalyst 中的错误::Authentication::Store::DBI::ButMaintained，我注意到这个错误也存在于 Catalyst::Authentication::Store::DBI。如下：

eval {
  require Catalyst::Model::DBI;
  require Catalyst::Plugin::Session;
  require Catalyst::Plugin::Session::State::Cookie;
  require Catalyst::Plugin::Session::Store::File;
  require DBD::SQLite;
  require Test::WWW::Mechanize::Catalyst;
} or plan skip_all => $@;

...

$ENV{'TESTAPP_PLUGINS'} = [ qw(
  Authentication
  Session
  Session::Store::File
  Session::State::Cookie
  Authorization::Roles
) ];

如您所见，eval/skip_all 不会检查 Authorization::Roles 包含，但测试依赖于它，因为它是一个插件。

不过，我还有另一个问题——是否有比这更优雅的方式来指定测试依赖项？请记住，我的目标与原作者相同。如果测试要求不存在，我只想跳过测试。理想情况下，在这种情况下，我想破解 Catalyst::Test 来包装 Catalyst::Plugin::* 内容的插件机制，然后找到更好的无需 eval/skip_all 即可完成其余操作的方法。

Answer 1

您可以通过调用动态影响计划中的测试数量：

Test::More->builder->plan(tests=>$total_tests);

您可以使用 do 根据需要有条件地计算测试数量。

Answer 2

根据需要更新您的插件列表：

如果您在单独的包中测试一堆要求，如果不满足依赖项，您可以简单地让该包返回 false（而不是传统的 true 值）：

package Catalyst::Test;

eval {
    use Dep1;
    use Dep2;
    # ...
}

# dep check package returns true if we found all the modules
!$@;

# test.pl
use Test::Requires {
    Catalyst::Test => 0.01,  # skip all tests if Catalyst::Test is not present
};
use Test::More tests => 20;  # call Test::More as normal.

当我使用名为 Foo 的 dep 检查器，此操作失败并显示适当的输出：

% perl -I. foo.t
1..0 # SKIP Foo.pm did not return a true value at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.
#

% prove -I. foo.t
foo.pl .. skipped: Foo.pm did not return a true value at (eval 4) line 2.
Files=1, Tests=0,  0 wallclock secs ( 0.02 usr  0.01 sys +  0.01 cusr  0.00 csys =  0.04 CPU)
Result: NOTESTS