summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0d2d15f)
#!/usr/bin/perl -w
use strict;
#!/usr/bin/perl -w
use strict;
+use Time::HiRes qw(time);
+sub mstime($$$)
+{
+ my ($floatsec, $warntime, $badtime) = @_;
+ my $ms = int($floatsec * 1000);
+ my $str = sprintf("%d.%03ds", $ms/1000, $ms % 1000);
+
+ if ($istty && $ms > $badtime) {
+ return "\e[31;1m$str\e[0m";
+ } elsif ($istty && $ms > $warntime) {
+ return "\e[33;1m$str\e[0m";
+ } else {
+ return "$str";
+ }
+}
+
sub resultline($$)
{
my ($name, $result) = @_;
return sprintf("! %-65s %s", $name, colourize($result));
}
sub resultline($$)
{
my ($name, $result) = @_;
return sprintf("! %-65s %s", $name, colourize($result));
}
+my $allstart = time();
+my ($start, $stop);
+
+sub endsect()
+{
+ $stop = time();
+ if ($start) {
+ printf " %s %s\n", mstime($stop - $start, 500, 1000), colourize("ok");
+ }
+}
if (/^\s*Testing "(.*)" in (.*):\s*$/)
{
alarm(120);
if (/^\s*Testing "(.*)" in (.*):\s*$/)
{
alarm(120);
my ($sect, $file) = ($1, $2);
my ($sect, $file) = ($1, $2);
- if ($insection) {
- printf " %s\n", colourize("ok");
- }
printf("! %s %s: ", $file, $sect);
@log = ();
printf("! %s %s: ", $file, $sect);
@log = ();
}
elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
{
}
elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
{
my ($name, $result) = ($1, $2);
my $pass = ($result eq "ok");
my ($name, $result) = ($1, $2);
my $pass = ($result eq "ok");
push @log, resultline($name, $result);
push @log, resultline($name, $result);
-if ($insection) {
- printf " %s\n", colourize("ok");
-}
my $newpid = waitpid($pid, 0);
if ($newpid != $pid) {
my $newpid = waitpid($pid, 0);
if ($newpid != $pid) {
}
my $gtotal = $gpasses+$gfails;
}
my $gtotal = $gpasses+$gfails;
-printf("\nWvTest: %d test%s, %d failure%s.\n",
+printf("\nWvTest: %d test%s, %d failure%s, total time %s.\n",
$gtotal, $gtotal==1 ? "" : "s",
$gtotal, $gtotal==1 ? "" : "s",
- $gfails, $gfails==1 ? "" : "s");
+ $gfails, $gfails==1 ? "" : "s",
+ mstime(time() - $allstart, 2000, 5000));
print STDERR "\nWvTest result code: $ret\n";
exit( $ret ? $ret : ($gfails ? 125 : 0) );
print STDERR "\nWvTest result code: $ret\n";
exit( $ret ? $ret : ($gfails ? 125 : 0) );