Log heap size when computing system tests

2022-11-06 08:53:04 +01:00 · 2022-11-06 08:53:04 +01:00 · 95064d39a3
commit 95064d39a3
parent 1e2826e095
1 changed files with 12 additions and 0 deletions
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@ -382,6 +382,18 @@ WHERE job_id = $1")
    `(lambda (store)
       (map
        (lambda (system-test)
+          (let ((stats (gc-stats)))
+            (simple-format
+             (current-error-port)
+             "inferior heap: ~a MiB used (~a MiB heap)~%"
+             (round
+              (/ (- (assoc-ref stats 'heap-size)
+                    (assoc-ref stats 'heap-free-size))
+                 (expt 2. 20)))
+             (round
+              (/ (assoc-ref (gc-stats) 'heap-size)
+                 (expt 2. 20)))))
+
          (list (system-test-name system-test)
                (system-test-description system-test)
                (filter-map