Linux TAP:：Harnese perl测试T形输出

我使用TAP:：Harness运行测试，当我在Linux系统上从命令行运行测试时，我在STDOUT上获得测试结果，但当我尝试使用perl-Harness.pl | tee out.TAP将输出捕获到文件以及STDOUT时，结果将被缓冲并仅在最后显示，我尝试将文件句柄传递给新的，但结果在写入文件之前仍然会被缓冲，有没有办法不缓冲输出，我有一个长时间运行的套件，希望在测试运行时查看结果并捕获输出

TAP:：线束版本3.22和perl版本5.8.8

下面是示例代码 harnese.pl

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

my @tests = ('del.t',);


my $harness = TAP::Harness->new( {
    verbosity => 1,
 } );
$harness->runtests(@tests);

还有测试del.t

use Test::More qw /no_plan/;
$|++;

my $count =1;
for (1 ..20 ) {
   ok ( $count ++ == $_, "Pass  $_");
   sleep 1 if ( $count % 5 == 0 ) ;
}

---

使用

script

而不是

tee

可以实现您想要的：

script -c 'perl harness.pl' file

找到了一个简单的更改，使tee也能正常工作：指定一个

格式化程序\u类

：

my $harness = TAP::Harness->new( {
    verbosity => 1,
    formatter_class => 'TAP::Formatter::Console',
 } );

这是因为如果输出不是tty，则通常使用不同的默认值，而tty正是导致出现缓冲的原因