perl - PerlスクリプトでTAPフォーマッタモジュールを使用し、コマンドラインで同じものを実行する方法

Question

私はこの構文を試しました：

use TAP::Harness;
 my @tests = glob( 't/*.t' );
 my $harness = TAP::Harness->new({ formatter_class => 'TAP::Formatter::HTML',
                                   merge => 1 });
 $harness->runtests( @tests );

次に、スクリプトを perl file.pl として実行しました

結果：

file.pl 行 32 で TAP::Formatter::HTML を読み込めません。

1..14

#あなたのテストは 14 の直後に 2 で終了したようです.

次に、他の方法を試しました：

 prove -m -Q --formatter=TAP::Formatter::HTML >output.html

結果：

C:/Perl/lib/App/Prove.pm の 528 行目で名前が付けられたテストがなく、't' ディレクトリが見つかりません。

Answer 1

formatter_class私も引数を操作することができませんでしたTAP::Formatter::HTML。

ただし、次はformatter引数で機能するはずです。

use strict;
use warnings;
use TAP::Harness;
use TAP::Formatter::HTML;

my @tests = glob "t/*.t";

my $fmt = TAP::Formatter::HTML->new;    # Set up the formatter
   $fmt->output_file( 'results.html' ); # options in $fmt

my $harness = TAP::Harness->new( { formatter => $fmt } );

$harness->runtests( @tests );