Tests: Add runtime

This commit is contained in:
Wilson Snyder 2011-10-05 09:50:00 -04:00
parent 7c2fdd1ee9
commit 246b62e322
1 changed files with 6 additions and 2 deletions

View File

@ -39,6 +39,7 @@ autoflush STDERR 1;
our @Orig_ARGV = @ARGV;
our @Orig_ARGV_Sw; foreach (@Orig_ARGV) { push @Orig_ARGV_Sw, $_ if /^-/ && !/^-j/; }
our $Start = time();
$Debug = 0;
my $opt_atsim;
@ -228,14 +229,17 @@ sub report {
$fh = IO::File->new(">$filename") or die "%Error: $! writing $filename,";
}
my $delta = time() - $Start;
$fh->print("\n");
$fh->print("="x70,"\n");
$fh->print("TESTS Passed $okcnt Skipped $skcnt Failed $failcnt\n");
$fh->printf("TESTS Passed $okcnt Skipped $skcnt Failed $failcnt Time %d:%02d\n",
int($delta/60),$delta%60);
foreach my $f (@$fails) {
chomp $f;
$fh->print("$f\n");
}
$fh->print("TESTS Passed $okcnt Skipped $skcnt Failed $failcnt\n");
$fh->printf("TESTS Passed $okcnt Skipped $skcnt Failed $failcnt Time %d:%02d\n",
int($delta/60),$delta%60);
}
#######################################################################