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

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

@ -37,6 +37,7 @@
conn conn
"system_tests" "system_tests"
'(name description location_id) '(name description location_id)
(list->vector
(map (match-lambda (map (match-lambda
((name description derivation-ids-by-system location-data) ((name description derivation-ids-by-system location-data)
(list name (list name
@ -44,7 +45,7 @@
(location->location-id (location->location-id
conn conn
(apply location location-data))))) (apply location location-data)))))
system-test-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