From: ludo@gnu.org (Ludovic Courtès)
To: Chris Marusich <cmmarusich@gmail.com>
Cc: 30824-done@debbugs.gnu.org
Subject: bug#30824: x86_64-linux: tests/packages.scm fails: could not find bootstrap binary
Date: Thu, 15 Mar 2018 11:41:48 +0100 [thread overview]
Message-ID: <87po45vcwj.fsf@gnu.org> (raw)
In-Reply-To: <87o9jqm092.fsf@gmail.com> (Chris Marusich's message of "Thu, 15 Mar 2018 05:27:37 +0100")
Hi Chris,
Chris Marusich <cmmarusich@gmail.com> skribis:
> test-name: package-source-derivation, snippet
> location: /home/marusich/guix-wip-docker/tests/packages.scm:378
> source:
> + (test-equal
> + "package-source-derivation, snippet"
> + "OK"
> + (let* ((file (search-bootstrap-binary
> + (match (%current-system)
> + ("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
> + (method fetch)
> + (uri file)
> + (sha256 sha256)
> + (patch-inputs
> + `(("tar" ,%bootstrap-coreutils&co)
> + ("xz" ,%bootstrap-coreutils&co)
> + ("patch" ,%bootstrap-coreutils&co)))
> + (patch-guile %bootstrap-guile)
> + (modules '((guix build utils)))
> + (snippet
> + '(begin
> + (chmod "." 511)
> + (symlink "guile" "guile-rocks")
> + (copy-recursively
> + "../share/guile/2.0/scripts"
> + "scripts")
> + (chmod ".." 511))))))
> + (package
> + (package
> + (inherit (dummy-package "with-snippet"))
> + (source source)
> + (build-system trivial-build-system)
> + (inputs
> + `(("tar"
> + ,(search-bootstrap-binary "tar" (%current-system)))
> + ("xz"
> + ,(search-bootstrap-binary "xz" (%current-system)))))
> + (arguments
> + `(#:guile
> + ,%bootstrap-guile
> + #:builder
> + (let ((tar (assoc-ref %build-inputs "tar"))
> + (xz (assoc-ref %build-inputs "xz"))
> + (source (assoc-ref %build-inputs "source")))
> + (and (zero? (system*
> + tar
> + "xvf"
> + source
> + "--use-compress-program"
> + xz))
> + (string=? "guile" (readlink "bin/guile-rocks"))
> + (file-exists? "bin/scripts/compile.scm")
> + (let ((out (assoc-ref %outputs "out")))
> + (call-with-output-file
> + out
> + (lambda (p) (display "OK" p))))))))))
> + (drv (package-derivation %store package))
> + (out (derivation->output-path drv)))
> + (and (build-derivations
> + %store
> + (list (pk 'snippet-drv drv)))
> + (call-with-input-file out get-string-all))))
> expected-value: "OK"
> actual-value: #f
> actual-error:
> + (srfi-34
> + #<condition &message [message: "could not find bootstrap binary 'guile-2.0.9.tar.xz' for system 'x86_64-linux'"] 415b220>)
> result: FAIL
Fixed in f8ec8d96d657f95e71e0798124cdeb2c9217c7fa, thanks!
Ludo’.
prev parent reply other threads:[~2018-03-15 10:42 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-03-15 4:27 bug#30824: x86_64-linux: tests/packages.scm fails: could not find bootstrap binary Chris Marusich
2018-03-15 10:41 ` Ludovic Courtès [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87po45vcwj.fsf@gnu.org \
--to=ludo@gnu.org \
--cc=30824-done@debbugs.gnu.org \
--cc=cmmarusich@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).