luke
/
verilator
mirror of https://github.com/verilator/verilator.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tests: Have driver report ETA.

This commit is contained in:
Wilson Snyder 2019-09-30 19:22:36 -04:00
parent 12fa085b26
commit dd4aa948ae
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test_regress/driver.pl
View File

@ -273,6 +273,7 @@ sub new {
driver_log_filename => undef, driver_log_filename => undef,
quiet => 0, quiet => 0,
# Counts # Counts
all_cnt => 0,
left_cnt => 0, left_cnt => 0,
ok_cnt => 0, ok_cnt => 0,
fail1_cnt => 0, fail1_cnt => 0,
@ -293,6 +294,7 @@ sub one_test {
my $self = shift; my $self = shift;
my @params = @_; my @params = @_;
my %params = (@params); my %params = (@params);
$self->{all_cnt}++;
$self->{left_cnt}++; $self->{left_cnt}++;
$::Fork->schedule $::Fork->schedule
( (
@ -390,7 +392,6 @@ sub print_summary {
my $self = shift; my $self = shift;
my %params = (force => 0, # Force printing my %params = (force => 0, # Force printing
@_); @_);
my $leftmsg = $::Have_Forker ? $self->{left_cnt} : "NO-FORKER";
if (!$self->{quiet} || $params{force} if (!$self->{quiet} || $params{force}
|| ($self->{left_cnt} < 5) || ($self->{left_cnt} < 5)
|| time() > ($self->{_next_summary_time} || 0)) { || time() > ($self->{_next_summary_time} || 0)) {
@ -404,6 +405,9 @@ sub sprint_summary {
my $delta = time() - $::Start; my $delta = time() - $::Start;
my $leftmsg = $::Have_Forker ? $self->{left_cnt} : "NO-FORKER"; my $leftmsg = $::Have_Forker ? $self->{left_cnt} : "NO-FORKER";
my $pct = int(100*($self->{left_cnt} / $self->{all_cnt}) + 0.999);
my $eta = ($self->{all_cnt}
* ($delta / (($self->{all_cnt} - $self->{left_cnt})+0.001))) - $delta;
my $out = ""; my $out = "";
$out .= "Left $leftmsg " if $self->{left_cnt}; $out .= "Left $leftmsg " if $self->{left_cnt};
$out .= "Passed $self->{ok_cnt}"; $out .= "Passed $self->{ok_cnt}";
@ -412,6 +416,7 @@ sub sprint_summary {
$out .= " Failed-First $self->{fail1_cnt}"; $out .= " Failed-First $self->{fail1_cnt}";
$out .= " Skipped $self->{skip_cnt}"; $out .= " Skipped $self->{skip_cnt}";
$out .= " Unsup $self->{unsup_cnt}"; $out .= " Unsup $self->{unsup_cnt}";
$out .= sprintf(" Eta %d:%02d", int($eta/60), $eta%60) if $self->{left_cnt} && $eta > 10;
$out .= sprintf(" Time %d:%02d", int($delta/60), $delta%60); $out .= sprintf(" Time %d:%02d", int($delta/60), $delta%60);
return $out; return $out;
} }