Question

I am using TAP::Harness in perl like this:

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

Sometime later I call $harness->runtests(), passing an array of several tests.

Problem is, in all of my tests:

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

Outputs:

$VAR1 = [];

Does test_args not come out in @ARGV in the underlying tests? I need to pass some options through to each test.

Answer 1

Does your initialization work? I had to pass hashref to the constuctor to make it work:

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');

In the test simple.t:

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

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

done_testing;