From: Rob Browning <rlb@defaultvalue.org>
Date: Sun, 31 Dec 2017 19:29:53 +0000 (-0600)
Subject: wvtest: set a very large timeout to disable test time colors
X-Git-Tag: 0.30~121
X-Git-Url: https://arthur.barton.de/gitweb/?p=bup.git;a=commitdiff_plain;h=e4ada8c5f7ba1b8273fa8edcda226fe526647e7b

wvtest: set a very large timeout to disable test time colors

I find them distracting and would rather only "see red" for failed
tests.

Signed-off-by: Rob Browning <rlb@defaultvalue.org>
Tested-by: Rob Browning <rlb@defaultvalue.org>
---

diff --git a/wvtest b/wvtest
index 2b1633b..7d494f3 100755
--- a/wvtest
+++ b/wvtest
@@ -12,6 +12,11 @@ use Getopt::Long qw(GetOptionsFromArray :config no_ignore_case bundling);
 use Pod::Usage;
 use Time::HiRes qw(time);
 
+my $per_test_warn_time = 100000;  # upstream was 500
+my $per_test_bad_time = 100000;  # upstream was 1000
+my $overall_test_warn_time = 100000;  # upstream was 2000
+my $overall_test_bad_time = 100000;  # upstream was 5000
+
 my $pid;
 my $istty = -t STDOUT;
 my @log = ();
@@ -80,7 +85,9 @@ sub endsect()
 {
     $stop = time();
     if ($start) {
-	printf " %s %s\n", mstime($stop - $start, 500, 1000), colourize("ok");
+	printf " %s %s\n",
+            mstime($stop - $start, $per_test_warn_time, $per_test_bad_time),
+            colourize("ok");
     }
 }
 
@@ -207,7 +214,9 @@ sub run
     }
     {
         my $msg = sprintf("WvTest: result code $ret, total time %s\n",
-                          mstime(time() - $allstart, 2000, 5000));
+                          mstime(time() - $allstart,
+                                 $overall_test_warn_time,
+                                 $overall_test_bad_time));
         print $msg;
         print STDERR $msg if $dup_msgs;
     }