From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=)
Subject: bug#30824: x86_64-linux: tests/packages.scm fails: could not find
	bootstrap binary
Date: Thu, 15 Mar 2018 11:41:48 +0100
Message-ID: <87po45vcwj.fsf@gnu.org>
References: <87o9jqm092.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:54817)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1ewQKl-00066t-Mu
	for bug-guix@gnu.org; Thu, 15 Mar 2018 06:42:08 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1ewQKh-00019c-OX
	for bug-guix@gnu.org; Thu, 15 Mar 2018 06:42:07 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:54422)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1ewQKh-00019E-M7
	for bug-guix@gnu.org; Thu, 15 Mar 2018 06:42:03 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1ewQKh-0008Gn-H5
	for bug-guix@gnu.org; Thu, 15 Mar 2018 06:42:03 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-To: bug-guix@gnu.org
Resent-Message-ID: <handler.30824.D30824.152111051131733.done@debbugs.gnu.org>
In-Reply-To: <87o9jqm092.fsf@gmail.com> (Chris Marusich's message of "Thu, 15
	Mar 2018 05:27:37 +0100")
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix/>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: Chris Marusich <cmmarusich@gmail.com>
Cc: 30824-done@debbugs.gnu.org

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 syst=
em)
> +                   (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=3D? "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 'guil=
e-2.0.9.tar.xz' for system 'x86_64-linux'"] 415b220>)
> result: FAIL

Fixed in f8ec8d96d657f95e71e0798124cdeb2c9217c7fa, thanks!

Ludo=E2=80=99.