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_classarg 使用TAP::Formatter::HTML.

但是，以下内容应与formatterarg 一起使用：

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

Answer 2

这对我来说很好。

#!/usr/bin/perl
use strict;
use warnings;
use TAP::Harness;

my @tests = glob( 't/*.t' );
my $harness = TAP::Harness->new();
$harness->runtests( @tests );

检查TAP::Harness.

它的man页面说：

构造函数返回一个新的“TAP::Harness”对象。它接受一个可选的 hashref 。

子程序中允许其键的 hashref 列表new可以在其man页面中找到。

在此处查看其在线文档。