cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Log heap size when computing system tests

Browse source
This commit is contained in:
Christopher Baines 2022-11-06 08:53:04 +01:00
parent 1e2826e095
commit 95064d39a3
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -382,6 +382,18 @@ WHERE job_id = $1")
`(lambda (store) `(lambda (store)
(map (map
(lambda (system-test) (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) (list (system-test-name system-test)
(system-test-description system-test) (system-test-description system-test)
(filter-map (filter-map