From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=)
Subject: bug#29612: tests/graph.scm fails on core-updates
Date: Sun, 17 Dec 2017 22:30:31 +0100
Message-ID: <87r2rt82ko.fsf@gnu.org>
References: <87374luakp.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]:40263)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1eQgWY-0004LJ-WB
	for bug-guix@gnu.org; Sun, 17 Dec 2017 16:31:07 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1eQgWU-00045M-So
	for bug-guix@gnu.org; Sun, 17 Dec 2017 16:31:06 -0500
Received: from debbugs.gnu.org ([208.118.235.43]:58936)
	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 1eQgWU-00045E-OI
	for bug-guix@gnu.org; Sun, 17 Dec 2017 16:31:02 -0500
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1eQgWU-0006M8-Ij
	for bug-guix@gnu.org; Sun, 17 Dec 2017 16:31:02 -0500
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-To: bug-guix@gnu.org
Resent-Message-ID: <handler.29612.D29612.151354623724367.done@debbugs.gnu.org>
In-Reply-To: <87374luakp.fsf@gmail.com> (Chris Marusich's message of "Thu, 07
	Dec 2017 20:07:18 -0800")
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: 29612-done@debbugs.gnu.org

Hi Chris,

Chris Marusich <cmmarusich@gmail.com> skribis:

> test-name: bag-emerged DAG
> location: /home/marusich/guix/tests/graph.scm:107
> source:
> + (test-assert
> +   "bag-emerged DAG"
> +   (let-values
> +     (((backend nodes+edges) (make-recording-backend)))
> +     (let* ((o (dummy-origin
> +                 (method (lambda _ (text-file "foo" "bar")))))
> +            (p (dummy-package "p" (source o)))
> +            (implicit
> +              (map (match-lambda ((label package) package))
> +                   (standard-packages))))
> +       (run-with-store
> +         %store
> +         (export-graph
> +           (list p)
> +           'port
> +           #:node-type
> +           %bag-emerged-node-type
> +           #:backend
> +           backend))
> +       (let-values
> +         (((nodes edges) (nodes+edges)))
> +         (and (equal?
> +                (match nodes (((labels names) ...) names))
> +                (map package-full-name (cons p implicit)))
> +              (equal?
> +                (match edges
> +                       (((sources destinations) ...)
> +                        (zip (map store-path-package-name sources)
> +                             (map store-path-package-name destinations))=
))
> +                (map (lambda (destination)
> +                       (list "p-0.drv"
> +                             (string-append
> +                               (package-full-name destination)
> +                               ".drv")))
> +                     implicit)))))))
> actual-value: #f
> actual-error:
> + (match-error
> +   "match"
> +   "no matching pattern"
> +   ("libc:static"
> +    #<package glibc@2.25 gnu/packages/commencement.scm:647 30b2780>
> +    "static"))
> result: FAIL

Fixed in cafc97e2f37f18e106c9a9cb9110a1862e9d0526, thanks!

Ludo=E2=80=99.