tests: Make sure to use the bootstrap Guile.

* tests/builders.scm ("url-fetch", "gnu-build"): Pass `url-fetch'
  #:guile %BOOTSTRAP-GUILE.
This commit is contained in:
Ludovic Courtès 2012-11-13 00:40:29 +01:00
parent 1dfb715df0
commit 92b8d1ea8b

View file

@ -58,7 +58,8 @@ (define %bootstrap-inputs
"ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")) "ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"))
(hash (nix-base32-string->bytevector (hash (nix-base32-string->bytevector
"0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6")) "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
(drv-path (url-fetch %store url 'sha256 hash)) (drv-path (url-fetch %store url 'sha256 hash
#:guile %bootstrap-guile))
(out-path (derivation-path->output-path drv-path))) (out-path (derivation-path->output-path drv-path)))
(and (build-derivations %store (list drv-path)) (and (build-derivations %store (list drv-path))
(file-exists? out-path) (file-exists? out-path)
@ -72,7 +73,8 @@ (define %bootstrap-inputs
(let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz") (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
(hash (nix-base32-string->bytevector (hash (nix-base32-string->bytevector
"0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6")) "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
(tarball (url-fetch %store url 'sha256 hash)) (tarball (url-fetch %store url 'sha256 hash
#:guile %bootstrap-guile))
(build (gnu-build %store "hello-2.8" tarball (build (gnu-build %store "hello-2.8" tarball
%bootstrap-inputs %bootstrap-inputs
#:implicit-inputs? #f #:implicit-inputs? #f