Tests: Tweak driver to still print status every 15 seconds.

This commit is contained in:
Wilson Snyder 2019-10-16 23:17:31 -04:00
parent 77f79f0114
commit 1852ae1cc8

View File

@ -360,13 +360,13 @@ sub wait_and_report {
my $self = shift; my $self = shift;
$self->print_summary(force=>1); $self->print_summary(force=>1);
# Wait for all children to finish # Wait for all children to finish
while ($::Have_Forker && $::Fork->is_any_left()) { while ($::Fork->is_any_left) {
$::Fork->poll(); $::Fork->poll;
if (time() - ($self->{_last_summary_time} || 0) > 30) { if (time() - ($self->{_last_summary_time} || 0) >= 30) {
$self->print_summary(force=>1, show_running=>1); $self->print_summary(force=>1, show_running=>1);
} }
Time::HiRes::usleep 100*1000; Time::HiRes::usleep 100*1000;
}; }
$runner->report(undef); $runner->report(undef);
$runner->report($self->{driver_log_filename}); $runner->report($self->{driver_log_filename});
} }
@ -403,7 +403,7 @@ sub print_summary {
@_); @_);
if (!$self->{quiet} || $params{force} if (!$self->{quiet} || $params{force}
|| ($self->{left_cnt} < 5) || ($self->{left_cnt} < 5)
|| time() - ($self->{_last_summary_time} || 0) > 60 * 5) { || time() - ($self->{_last_summary_time} || 0) >= 15) {
$self->{_last_summary_time} = time(); $self->{_last_summary_time} = time();
print STDERR ("==SUMMARY: ".$self->sprint_summary."\n"); print STDERR ("==SUMMARY: ".$self->sprint_summary."\n");
if ($params{show_running}) { if ($params{show_running}) {
@ -2121,6 +2121,7 @@ sub kill_tree_all {}
sub wait_all {} sub wait_all {}
sub ready {} sub ready {}
sub running {} sub running {}
sub is_any_left { return 0; }
####################################################################### #######################################################################
1; 1;