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