diff options
author | Christopher Baines <mail@cbaines.net> | 2022-11-06 08:53:04 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-11-06 08:53:04 +0100 |
commit | 95064d39a337da9f2eb7d5675e0e511301466f77 (patch) | |
tree | 47cb403933e2bea74d5366d930a34d537c6dcbf2 /guix-data-service/jobs/load-new-guix-revision.scm | |
parent | 1e2826e09547fdb9c52ddfae3f4f5617fd178099 (diff) | |
download | data-service-95064d39a337da9f2eb7d5675e0e511301466f77.tar data-service-95064d39a337da9f2eb7d5675e0e511301466f77.tar.gz |
Log heap size when computing system tests
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 12 |
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 |