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

More system test loading fixes

Browse source
This commit is contained in:
Christopher Baines 2025-06-25 15:32:21 +02:00
parent 8f172c4950
commit 5d1233ccd0
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/model/system-test.scm
View file

@ -37,14 +37,15 @@
conn conn
"system_tests" "system_tests"
'(name description location_id) '(name description location_id)
(map (match-lambda (list->vector
((name description derivation-ids-by-system location-data) (map (match-lambda
(list name ((name description derivation-ids-by-system location-data)
description (list name
(location->location-id description
conn (location->location-id
(apply location location-data))))) conn
system-test-data))) (apply location location-data)))))
system-test-data))))
(data (data
(append-map (append-map
(lambda (system-test-id derivation-ids-by-system) (lambda (system-test-id derivation-ids-by-system)
@ -54,7 +55,7 @@
(cdr system-and-derivation-id) (cdr system-and-derivation-id)
(car system-and-derivation-id))) (car system-and-derivation-id)))
derivation-ids-by-system)) derivation-ids-by-system))
system-test-ids (vector->list system-test-ids)
(map third system-test-data)))) (map third system-test-data))))
(exec-query (exec-query