[OSSTEST,4/6] timing traces: sg-check-tested: Add prints of (show_abs_time time)
diff mbox series

Message ID 20200810112047.30285-4-ian.jackson@eu.citrix.com
State New
Headers show
Series
  • [OSSTEST,1/6] cr-publish-flight-logs: Make a proper option parser
Related show

Commit Message

Ian Jackson Aug. 10, 2020, 11:20 a.m. UTC
More tools to see where it is faffing too much.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
 sg-check-tested | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

Patch
diff mbox series

diff --git a/sg-check-tested b/sg-check-tested
index 7946e4b5..39c0d0c2 100755
--- a/sg-check-tested
+++ b/sg-check-tested
@@ -148,7 +148,7 @@  sub prepare_execute ($@) {
     my ($qtxt, @vars) = @_;
     print DEBUG "\n==========\n", $qtxt,
                 "\n----------\n", (join ' | ', @vars),
-                "\n==========\n";
+                "\n========== ".(show_abs_time time)."\n";
     my $q= $dbh_tests->prepare($qtxt);
     $q->execute(@vars);
     return $q;
@@ -169,7 +169,7 @@  sub search () {
     while (my $row= $q->fetchrow_hashref()) {
 	my $flight= $row->{flight};
 	if (!defined $prrev) {
-	    print DEBUG "==========YES\n";
+	    print DEBUG "========== ".(show_abs_time time)." YES\n";
 	    output $flight,"\n";
 	    return;
 	} else {
@@ -195,7 +195,7 @@  END
 	    my $row1= $valsq->fetchrow_hashref();
 	    next unless defined $row1->{val} && length $row1->{val};
 	    my $val1 = massage($row1->{val});
-	    print DEBUG "got $val1\n";
+	    print DEBUG (show_abs_time time)." got $val1\n";
 	    while (my $row2 = $valsq->fetchrow_hashref()) {
 		my $val2 = massage($row2->{val});
 		next if $val2 eq $val1;
@@ -212,7 +212,7 @@  END
 	    return;
 	}
     }
-    print DEBUG "==========NO\n";
+    print DEBUG "========== ".(show_abs_time time)." NO\n";
 }
 
 db_retry($dbh_tests, [], sub {