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

Previous Next

Package: guix;

Reported by: Chris Marusich <cmmarusich <at> gmail.com>

Date: Fri, 8 Dec 2017 04:08:02 UTC

Severity: normal

Done: ludo <at> gnu.org (Ludovic Courtès)

Bug is archived. No further changes may be made.

Full log

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’.
This bug report was last modified 7 years and 157 days ago.

Previous Next

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