[no subject]

[Mathieu Othacehe]

branch: master
commit 2470b216f112594189ac639ee9d40029ef96a164
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Sep 17 09:17:14 2020 +0200

    metrics: Change evaluation-completion-speed unit.
    
    * src/cuirass/metrics.scm (db-evaluation-completion-speed): Change the
    completion speed unit to builds/hour.
    (%metrics): Adapt comment.
---
 src/cuirass/metrics.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/metrics.scm b/src/cuirass/metrics.scm
index a08bcf5..1fa94cd 100644
--- a/src/cuirass/metrics.scm
+++ b/src/cuirass/metrics.scm
@@ -124,7 +124,7 @@ GROUP BY E.id;")))
 
 (define* (db-evaluation-completion-speed eval)
   "Return the evaluation completion speed of the given EVAL. The speed is
-expressed in builds per minute."
+expressed in builds per hour."
   ;; completion_speed = 60 * completed_builds / eval_duration.
   ;;
   ;; evaluation_duration (seconds) = current_time - eval_start_time
@@ -135,7 +135,7 @@ expressed in builds per minute."
   (with-db-worker-thread db
     (let ((rows (sqlite-exec db "\
 SELECT
-60.0 * SUM(B.status = 0) /
+3600.0 * SUM(B.status = 0) /
 (CASE SUM(status < 0)
    WHEN 0 THEN MAX(stoptime)
    ELSE strftime('%s', 'now')
@@ -243,7 +243,7 @@ status = 0 ORDER BY rowid DESC" days)))
     (id 'average-eval-build-complete-time)
     (compute-proc db-average-build-complete-time-per-eval))
 
-   ;; Evaluation completion speed in builds/minute.
+   ;; Evaluation completion speed in builds/hour.
    (metric
     (id 'evaluation-completion-speed)
     (compute-proc db-evaluation-completion-speed))))