switching to report minimum time of the entire run. r=mcafee,dp

This commit is contained in:
cltbld%netscape.com 2001-11-16 01:13:34 +00:00
Родитель d2f0507318
Коммит b14332994a
1 изменённых файлов: 18 добавлений и 4 удалений

Просмотреть файл

@ -20,7 +20,7 @@ use File::Basename; # for basename();
use Config; # for $Config{sig_name} and $Config{sig_num} use Config; # for $Config{sig_name} and $Config{sig_num}
$::UtilsVersion = '$Revision: 1.82 $ '; $::UtilsVersion = '$Revision: 1.83 $ ';
package TinderUtils; package TinderUtils;
@ -953,8 +953,12 @@ sub run_all_tests {
# Figure out the average startup time. # Figure out the average startup time.
$avg_startuptime = $agg_startuptime / $startup_count; $avg_startuptime = $agg_startuptime / $startup_count;
print_log "Average startup time: $avg_startuptime\n"; print_log "Average startup time: $avg_startuptime\n";
print_log "\n\n __avg_startuptime,$avg_startuptime\n\n";
print_log "\n\nTinderboxPrint:Ts:$avg_startuptimems\n\n"; my $min_startuptime = min(@times);
print_log "Minimum startup time: $min_startuptime\n";
# print_log "\n\n __avg_startuptime,$avg_startuptime\n\n";
print_log "\n\n __avg_startuptime,$min_startuptime\n\n";
# Report data back to server # Report data back to server
if($Settings::TestsPhoneHome) { if($Settings::TestsPhoneHome) {
@ -989,6 +993,16 @@ sub BinaryExists {
} }
} }
sub min() {
my $m = $_[0];
my $i;
foreach $i (@_) {
$m = $i if ($m > $i);
}
return $m;
}
sub DeleteBinary { sub DeleteBinary {
my ($binary) = @_; my ($binary) = @_;
my ($binary_basename) = File::Basename::basename($binary); my ($binary_basename) = File::Basename::basename($binary);