我正在使用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 中吗?我需要将一些选项传递给每个测试。
最佳答案
你的初始化工作正常吗?我必须将 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;
关于Perl - TAP::Harness 和 test_args,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6414497/