Question

prove给出了这样的输出：

$ prove t/HealthScores.t 
t/HealthScores.t .. ok   
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.04 usr  0.00 sys +  0.16 cusr  0.01 csys =  0.21 CPU)
Result: PASS

对我来说，最后两行是多余的，不必要的。我想禁用它们的显示但是找不到这个CLI开关。例如，我只想看到这个：

$ prove t/HealthScores.t
t/HealthScores.t .. ok
All tests successful.

有什么想法吗？

Answer 1

没有。这些不是有条件的输出。

if ( $aggregate->all_passed ) {
    $self->_output_success("All tests successful.\n");
}

...

my $files = @$tests;
$self->_output("Files=$files, Tests=$total, $runtime\n");
my $status = $aggregate->get_status;
$self->_output("Result: $status\n");

虽然似乎有办法让这些和其他消息保持沉默，因为上面的内容是

return if $self->silent;

如何禁用冗余perl证明输出？

1 个答案: