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

Don't ignore all system tests if computing one derivation fails

Browse source
This commit is contained in:
Christopher Baines 2021-01-14 20:45:03 +00:00
parent a88e9db1ff
commit ea7331ad25
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -352,7 +352,11 @@ WHERE job_id = $1"
(system-test-name system-test)) (system-test-name system-test))
(list (system-test-name system-test) (list (system-test-name system-test)
(system-test-description system-test) (system-test-description system-test)
(map (lambda (system) (filter-map
(lambda (system)
(catch
#t
(lambda ()
(cons (cons
system system
(parameterize ((%current-system system)) (parameterize ((%current-system system))
@ -360,7 +364,13 @@ WHERE job_id = $1"
(run-with-store store (run-with-store store
(mbegin %store-monad (mbegin %store-monad
(system-test-value system-test))))))) (system-test-value system-test)))))))
(list ,@inferior-%supported-systems)) (lambda (key . args)
(simple-format
(current-error-port)
"guix-data-service: error computing derivation ~A: ~A\n"
key args)
#f)))
(list ,@inferior-%supported-systems))
(match (system-test-location system-test) (match (system-test-location system-test)
(($ <location> file line column) (($ <location> file line column)
(list file (list file