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 = ();
{
$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");
}
}
if (/^\s*Testing "(.*)" in (.*):\s*$/)
{
- alarm(120);
+ alarm(300);
my ($sect, $file) = ($1, $2);
endsect();
}
elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
{
- alarm(120);
+ alarm(300);
my ($name, $result) = ($1, $2);
my $pass = ($result eq "ok");
}
{
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;
}