Perl - TAP::Harness 和 test_args

Question

我正在使用 TAP::Harness在 perl 中是这样的:

$harness = TAP::Harness->new({
        formatter_class => 'TAP::Formatter::Console',
        merge => 1,
        verbosity => 1,
        normalize => 1,
        color => 1,
        test_args => ['--url', $url, '--session', $session],
    });

一段时间后，我调用 $harness->runtests()，传递包含多个测试的数组。

问题是，在我所有的测试中:

use Data::Dumper;
print Dumper \@ARGV;

输出:

$VAR1 = [];

难道test_args不是在底层测试中@ARGV出来的吗？我需要将一些选项传递给每个测试。

Answer 1

你的初始化工作吗？我必须将 hashref 传递给构造函数才能使其工作:

use TAP::Harness;

$harness = TAP::Harness->new({
    formatter_class => 'TAP::Formatter::Console',
    merge           => 1,
    verbosity       => 1,
    normalize       => 1,
    color           => 1,
    test_args       => ['--url', $url, '--session', $session],
});

$harness->runtests('simple.t');

在测试simple.t中:

use Test::More;
use Data::Dump qw(dump);

dump [@ARGV];    # prints ["--url", "", "--session", ""]

done_testing;