GNU bug report logs - #29612
tests/graph.scm fails on core-updates

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 29612 in the body.
You can then email your comments to 29612 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: tests/graph.scm fails on core-updates
Date: Thu, 07 Dec 2017 20:07:18 -0800

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

Hi,

Starting with commit 6dff905e51202bbdebbad8811b6509584d12a796 (on
core-updates), tests/graph.scm fails consistently.  It still fails on
9e111db4535b3cd5729e37294ae51d95240334b4, which is the current tip of
core-updates.

I've attached the test-suite.log for a test run performed at this
commit.

-- 
Chris

[test-suite.log (application/octet-stream, attachment)]

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

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

From: ludo <at> gnu.org (Ludovic Courtès)
To: Chris Marusich <cmmarusich <at> gmail.com>
Cc: 29612-done <at> debbugs.gnu.org
Subject: Re: bug#29612: tests/graph.scm fails on core-updates
Date: Sun, 17 Dec 2017 22:30:31 +0100

Hi Chris,

Chris Marusich <cmmarusich <at> 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 <at> 2.25 gnu/packages/commencement.scm:647 30b2780>
> +    "static"))
> result: FAIL

Fixed in cafc97e2f37f18e106c9a9cb9110a1862e9d0526, thanks!

Ludo’.

Previous Next

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