diff options
| author | Mark H Weaver <mhw@netris.org> | 2015-07-19 20:28:56 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2015-07-19 20:28:56 -0400 |
| commit | e170571887dc072edae8b197527921c47743c62c (patch) | |
| tree | c77e6d7ff744c50cd2741fd92a0c73503daa83c2 /tests/gexp.scm | |
| parent | dcd9c2505c0230c13556e233dbe4d81604a4abbd (diff) | |
| parent | 1b4e48d498a96d478baa1aae7d9c7ecdbd817d6f (diff) | |
| download | gnu-guix-e170571887dc072edae8b197527921c47743c62c.tar gnu-guix-e170571887dc072edae8b197527921c47743c62c.tar.gz | |
Merge branch 'core-updates'
Diffstat (limited to 'tests/gexp.scm')
| -rw-r--r-- | tests/gexp.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/gexp.scm b/tests/gexp.scm index 5c9a4fc031..740d74620e 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -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" |