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

Guard against errors loading system tests

Browse source
This commit is contained in:
Christopher Baines 2020-04-07 18:17:01 +01:00
parent 7db6a8fa03
commit cdcc6140aa
1 changed files with 25 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -333,6 +333,9 @@ WHERE job_id = $1"
column))))) column)))))
(all-system-tests)))) (all-system-tests))))
(catch
#t
(lambda ()
(let ((system-test-data (let ((system-test-data
(with-time-logging "getting system tests" (with-time-logging "getting system tests"
(inferior-eval-with-store inf store extract)))) (inferior-eval-with-store inf store extract))))
@ -344,6 +347,15 @@ WHERE job_id = $1"
(map third system-test-data)) (map third system-test-data))
system-test-data)) system-test-data))
(lambda (key . args)
(display (backtrace) (current-error-port))
(display "\n" (current-error-port))
(simple-format
(current-error-port)
"error: all-inferior-system-tests: ~A: ~A\n"
key args)
#f)))
(define (all-inferior-lint-warnings inf store) (define (all-inferior-lint-warnings inf store)
(define locales (define locales
@ -1153,9 +1165,10 @@ WHERE job_id = $1"
guix-revision-id guix-revision-id
lint-warning-ids))) lint-warning-ids)))
(when inferior-system-tests
(insert-system-tests-for-guix-revision conn (insert-system-tests-for-guix-revision conn
guix-revision-id guix-revision-id
inferior-system-tests) inferior-system-tests))
(let ((package-derivation-ids (let ((package-derivation-ids
(with-time-logging "inferior-data->package-derivation-ids" (with-time-logging "inferior-data->package-derivation-ids"