ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Do not assume the bootstrap guile tarball is available locally.

Browse source 
Fixes <https://bugs.gnu.org/30824>.
Reported by Chris Marusich <cmmarusich@gmail.com>.

* tests/packages.scm ("package-source-derivation, snippet"): Use
'bootstrap-guile-origin' instead of assuming the bootstrap guile tarball
is available locally.
This commit is contained in:
Ludovic Courtès 2018-03-15 10:25:10 +01:00
parent dba52a2bcb
commit f8ec8d96d6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tests/packages.scm
View file

@ -377,24 +377,9 @@ (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 (match (%current-system) (let* ((source (bootstrap-origin
("armhf-linux"
"guile-2.0.11.tar.xz")
("aarch64-linux"
"guile-2.0.14.tar.xz")
(_
"guile-2.0.9.tar.xz"))
(%current-system)))
(sha256 (call-with-input-file file port-sha256))
(fetch (lambda* (url hash-algo hash
#:optional name #:key system)
(pk 'fetch url hash-algo hash name system)
(interned-file url)))
(source (bootstrap-origin
(origin (origin
(method fetch) (inherit (bootstrap-guile-origin (%current-system)))
(uri file)
(sha256 sha256)
(patch-inputs (patch-inputs
`(("tar" ,%bootstrap-coreutils&co) `(("tar" ,%bootstrap-coreutils&co)
("xz" ,%bootstrap-coreutils&co) ("xz" ,%bootstrap-coreutils&co)