test-restore-map-owner: accommodate python 3 and test there

[bup.git] / wvtest

diff --git a/wvtest b/wvtest
index 2b1633b113cbffc60e9d7d3fc7e2a335e0997f35..7d494f348185713ea0c44d80d9959ea74448f936 100755 (executable)
--- 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;
     }