TAP :: Harness perl测试三通输出

Question

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

TAP :: Harness版本3.22和perl版本5.8.8

这是示例代码harness.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 ) ;
}

Answer 1

使用script而不是tee做你想要的:

script -c 'perl harness.pl' file

找到一个简单的改变,使T恤工作:指定一个formatter_class:

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

这是因为TAP::Harness如果输出不是tty,通常使用不同的默认值,这是导致您看到的缓冲的原因.