perl - 使用 Module::Build 运行时如何将参数传递给 Perl 测试

Question

我正在使用 Module::Build 构建一个 Perl 包。包的测试 t/*.t 必须使用驻留在用户在调用测试期间应提供的目录中的程序：

perl Build.PL
./Build
./Build test user-supplied-directory

Module::Build 文档提供了有关将参数传递给 Build 脚本的信息，但我还没有找到如何将它们传递给测试。可能吗？

Answer 1

通常使用环境变量。这允许人们在不改变构建脚本的情况下改变测试的行为。

TEST_ALL_THE_THINGS=1 ./Build test

Answer 2

由于无法在 Windows 的同一命令行中设置环境变量，因此我决定更改 Build.PL 以通过子类化 Module::Build （添加操作）将环境变量传递给测试。

# Build.PL
use Module::Build;
use strict;
use warnings;

my $class = Module::Build->subclass(
    class => "Module::Build::Husky",
    code => <<'SUBCLASS' );

sub ACTION_test
{
    my $self = shift;
    my $dir = ($^O =~ /Win/) ? $ARGV[2] : $ARGV[1];
    $ENV{HUSKYBINDIR} = $dir if(defined($dir) && $dir ne "" && -d $dir);
    $self->SUPER::ACTION_test;
}
SUBCLASS

my $build = $class->new
(
    ...
);
$build->create_build_script;

现在当用户运行

Build test user-supplied-directory

将user-supplied-directory作为 传递给测试$ENV{HUSKYBINDIR}。

奇怪的是，$ARGV[1]在 Linux 和$ARGV[2]Windows 中传递了相同的命令行参数。我没有机会在 FreeBSD 和 Mac OS X 中测试它，但希望它会$ARGV[1]像在 Linux 中一样。