mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-24 01:51:51 +02:00
tests: Adjust tests for new bootstrap Guile.
This is a followup to commit 5d6792f ("gnu: bootstrap: Create a wrapper for
guile to set the system load path.")
* tests/size.scm ("store-profile"): Expect profile of 'bash' bootstrap binary.
* tests/gexp.scm ("gexp->derivation #:references-graphs"): Expect GUILE-DRV to
depend on 'bash' bootstrap binary.
This commit is contained in:
+6
-1
@@ -536,6 +536,9 @@
|
||||
(guix build utils))))
|
||||
(ok? (built-derivations (list drv)))
|
||||
(guile-drv (package->derivation %bootstrap-guile))
|
||||
(bash (interned-file (search-bootstrap-binary "bash"
|
||||
(%current-system))
|
||||
"bash" #:recursive? #t))
|
||||
(g-one -> (derivation->output-path drv "one"))
|
||||
(g-two -> (derivation->output-path drv "two"))
|
||||
(g-guile -> (derivation->output-path drv)))
|
||||
@@ -543,8 +546,10 @@
|
||||
(equal? (call-with-input-file g-one read) (list one))
|
||||
(equal? (call-with-input-file g-two read)
|
||||
(list one (derivation->output-path two "chbouib")))
|
||||
|
||||
;; Note: %BOOTSTRAP-GUILE depends on the bootstrap Bash.
|
||||
(equal? (call-with-input-file g-guile read)
|
||||
(list (derivation->output-path guile-drv)))))))
|
||||
(list (derivation->output-path guile-drv) bash))))))
|
||||
|
||||
(test-assertm "gexp->derivation #:allowed-references"
|
||||
(mlet %store-monad ((drv (gexp->derivation "allowed-refs"
|
||||
|
||||
Reference in New Issue
Block a user