diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-15 14:30:00 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-15 14:30:00 +0200 |
| commit | ad3c603541cf85215f127e283e99096700a21fcd (patch) | |
| tree | faede7a997ac038b59c701db6920ae536052c8d1 /src | |
| parent | c5a975867e2af705a809e706d1509ce1f8e67ea8 (diff) | |
| download | cuirass-ad3c603541cf85215f127e283e99096700a21fcd.tar cuirass-ad3c603541cf85215f127e283e99096700a21fcd.tar.gz | |
metrics: Fix db-average-eval-duration-per-spec.
* src/cuirass/metrics.scm (db-average-eval-duration-per-spec): Order results
by descending rowid and adjust docstring.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/metrics.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/cuirass/metrics.scm b/src/cuirass/metrics.scm index 665b9a0..6151baf 100644 --- a/src/cuirass/metrics.scm +++ b/src/cuirass/metrics.scm @@ -54,12 +54,14 @@ ;;; (define* (db-average-eval-duration-per-spec spec #:key limit) - "Return the evaluation duration of EVAL." + "Return the average evaluation duration for SPEC. Limit the average +computation to the most recent LIMIT records if this argument is set." (with-db-worker-thread db (let ((rows (sqlite-exec db "SELECT AVG(duration) FROM (SELECT (evaltime - timestamp) as duration FROM Evaluations WHERE specification = " spec -" AND evaltime != 0 LIMIT " (or limit -1) ");"))) +" AND evaltime != 0 ORDER BY rowid DESC +LIMIT " (or limit -1) ");"))) (and=> (expect-one-row rows) (cut vector-ref <> 0))))) (define (db-builds-previous-day _) |