From 51df77099ad9f45ebc2ad74cd11139a988e159af Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Sat, 29 Jun 2019 15:58:00 -0400
Subject: [PATCH] Test driver: With --quiet print summary every 15sec or Travis
 barfs.

---
 test_regress/driver.pl | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index 55add1998..18c8bf63e 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -246,6 +246,7 @@ sub calc_jobs {
 # Runner class
 
 package Runner;
+use strict;
 
 sub new {
     my $class = shift;
@@ -361,14 +362,17 @@ sub print_summary {
     my %params = (force => 0, # Force printing
                   @_);
     my $leftmsg = $::Have_Forker ? $self->{left_cnt} : "NO-FORKER";
-    print STDERR ("==SUMMARY: ".$self->sprint_summary."\n")
-        if !$self->{quiet} || !$self->{left_cnt} || $params{force};
+    if (!$self->{quiet} || !$self->{left_cnt} || $params{force}
+        || time() > ($self->{_next_summary_time} || 0)) {
+        $self->{_next_summary_time} = time() + 15;
+        print STDERR ("==SUMMARY: ".$self->sprint_summary."\n")
+    }
 }
 
 sub sprint_summary {
     my $self = shift;
 
-    my $delta = time() - $Start;
+    my $delta = time() - $::Start;
     my $leftmsg = $::Have_Forker ? $self->{left_cnt} : "NO-FORKER";
     # Ordered below most severe to least severe
     my $out = "";
@@ -2260,9 +2264,9 @@ use those optimization settings
 
 =item --quiet
 
-Suppress all output except for pass/fail.  Intended for use only in
-automated regressions.  See also C<--rerun>, and C<--verbose> which is not
-the opposite of C<--quiet>.
+Suppress all output except for failures and progress messages every 15
+seconds.  Intended for use only in automated regressions.  See also
+C<--rerun>, and C<--verbose> which is not the opposite of C<--quiet>.
 
 =item --rerun