tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-25 10:31:49 +02:00
Code Activity

gexp: #:references-graphs refers to non-native derivations.

Browse Source 
Fixes a regression introduced in
c6d6aee6659acb293eb33f498fdac3b47a19a48, where #:reference-graphs would
end up referring to native inputs.

This would notably break the compilation of systems using a childhurd,
because they would attempt to build the 'hurd' package natively.

* guix/gexp.scm (lower-reference-graphs)[tuple->gexp-input]: Honor TARGET.
* tests/gexp.scm ("gexp->derivation #:references-graphs cross-compilation"):
New test.
This commit is contained in:
Ludovic Courtès
2021-03-03 12:27:18 +01:00
parent d9f1752c55
commit 9fc4e94986
2 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/gexp.scm
+16
View File
@@ -1095,6 +1095,22 @@ importing.* \\(guix config\\) from the host"
(call-with-input-file g-guile read)
(list (derivation->output-path guile-drv) bash))))))
(test-assertm "gexp->derivation #:references-graphs cross-compilation"
;; The objects passed in #:references-graphs implicitly refer to
;; cross-compiled derivations. Make sure this is the case.
(mlet* %store-monad ((drv1 (lower-object coreutils (%current-system)
#:target "i586-pc-gnu"))
(drv2 (lower-object coreutils (%current-system)
#:target #f))
(drv3 (gexp->derivation "three"
#~(symlink #$coreutils #$output)
#:target "i586-pc-gnu"
#:references-graphs
`(("coreutils" ,coreutils))))
(refs (references* (derivation-file-name drv3))))
(return (and (member (derivation-file-name drv1) refs)
(not (member (derivation-file-name drv2) refs))))))
(test-assertm "gexp->derivation #:allowed-references"
(mlet %store-monad ((drv (gexp->derivation "allowed-refs"
#~(begin