的Perl - TAP ::線束和test_args

Question

我在這樣的Perl使用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（），經過多次測試的數組。

問題是，在我所有的測試：

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

輸出：

$VAR1 = []; 

是否test_args不出來@ARGV中在基礎測試？我需要通過一些選項通過每個測試。

Answer 1

您的初始化工作？我不得不hashref傳遞給constuctor，使其工作：

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;