perl - 混合 TAP::Harness 构造函数参数时遇到问题

Question

看起来有些TAP::Harness（v3.23）构造函数参数不喜欢一起玩。

当我尝试将formatterarg 与verbosity或colorargs 一起指定时，模块会抱怨后两者无法识别。当我将其注释掉时，它工作得很好。难道我做错了什么？

use strict;
use warnings;

use TAP::Harness;
use TAP::Formatter::HTML;

print "TAP::Harness Version : $TAP::Harness::VERSION\n";  # 3.23

my $fmt = TAP::Formatter::HTML->new;
   $fmt->output_file( 'test.html' );

my $harness = TAP::Harness
                ->new( {
                         color       => 1,
                         verbosity   => -2,
                         formatter   => $fmt,
                         lib         => $^O =~ /win/i
                                        ? [ 'C:\\some\\lib' ]
                                        : [ '/usr/bin/etc/some/lib' ],
                     } );

输出（formatter指定 arg）：

Unknown arguments to TAP::Harness::new (color verbosity) at harness.pl line 41

Answer 1

所以它看起来TAP::Formatter::HTML有自己的verbosity和color属性：

冗长

$fmt->verbosity( [ $v ] )

详细级别，如“新”中定义的TAP::Harness：

1   verbose        Print individual test results (and more) to STDOUT.
 0   normal
-1   quiet          Suppress some test output (eg: test failures).
-2   really quiet   Suppress everything to STDOUT but the HTML report.
-3   silent         Suppress all output to STDOUT, including the HTML report.

颜色

此方法仅用于TAP::HarnessAPI 兼容性。它什么也不做。

---

所以参数需要传递给TAP::Formatter::HTML对象而不是线束。