tests: Select appropriate bootstrap guile version for current system.

* tests/packages.scm ("package-source-derivation, snippet"): Select appropriate
  guile-2.0.x.tar.xz tarball based on the value of (%current-system).
This commit is contained in:
Mark H Weaver 2015-04-22 16:54:13 -04:00
parent 76eb726617
commit 5cfc17cb7f

View file

@ -210,7 +210,11 @@ (define read-at
(unless (network-reachable?) (test-skip 1)) (unless (network-reachable?) (test-skip 1))
(test-equal "package-source-derivation, snippet" (test-equal "package-source-derivation, snippet"
"OK" "OK"
(let* ((file (search-bootstrap-binary "guile-2.0.9.tar.xz" (let* ((file (search-bootstrap-binary (match (%current-system)
("armhf-linux"
"guile-2.0.11.tar.xz")
(_
"guile-2.0.9.tar.xz"))
(%current-system))) (%current-system)))
(sha256 (call-with-input-file file port-sha256)) (sha256 (call-with-input-file file port-sha256))
(fetch (lambda* (url hash-algo hash (fetch (lambda* (url hash-algo hash