[debbugs-tracker] bug#30824: closed (x86_64-linux: tests/packages.scm fails: could not find bootstrap binary)

[GNU bug Tracking System]

Your message dated Thu, 15 Mar 2018 11:41:48 +0100
with message-id <address@hidden>
and subject line Re: bug#30824: x86_64-linux: tests/packages.scm fails: could 
not find bootstrap binary
has caused the debbugs.gnu.org bug report #30824,
regarding x86_64-linux: tests/packages.scm fails: could not find bootstrap 
binary
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
30824: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=30824
GNU Bug Tracking System
Contact address@hidden with problems

--- Begin Message --- Subject: x86_64-linux: tests/packages.scm fails: could not find bootstrap binary Date: Thu, 15 Mar 2018 05:27:37 +0100 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)

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
Description: PGP signature

--- End Message ---

> --- Begin Message ---
>
>
>
> 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
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)
>
>
>
>
> Hi Chris,
>
> Chris Marusich <address@hidden> 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’.
>
>
> --- End Message ---