GNU bug report logs - #30824
x86_64-linux: tests/packages.scm fails: could not find bootstrap binary

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 30824 in the body.
You can then email your comments to 30824 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Chris Marusich <cmmarusich <at> gmail.com>
To: bug-guix <at> gnu.org
Subject: x86_64-linux: tests/packages.scm fails: could not find bootstrap
 binary
Date: Thu, 15 Mar 2018 05:27:37 +0100

[Message part 1 (text/plain, inline)]

This is on x86_64-linux, GuixSD.  Using commit
b4bf95162777b9db3c681292942895ea308e701e, running "make check
TESTS=tests/packages.scm" in an environment built by "guix environment
--pure guix" fails.  I am using "guix (GNU Guix)
e2d0cf033eb894fa8c786d0bf039fc54685d5559", which is pretty recent (1
week or so ago).

There is one failure, and it is this:

--8<---------------cut here---------------start------------->8---
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
--8<---------------cut here---------------end--------------->8---

-- 
Chris

[signature.asc (application/pgp-signature, inline)]

Message #10 received at 30824-done <at> debbugs.gnu.org (full text, mbox):

From: ludo <at> gnu.org (Ludovic Courtès)
To: Chris Marusich <cmmarusich <at> gmail.com>
Cc: 30824-done <at> debbugs.gnu.org
Subject: Re: bug#30824: x86_64-linux: tests/packages.scm fails: could not find
 bootstrap binary
Date: Thu, 15 Mar 2018 11:41:48 +0100

Hi Chris,

Chris Marusich <cmmarusich <at> 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’.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.