aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index 2eba411..5030576 100644
--- 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