[debbugs-tracker] bug#29612: closed (tests/graph.scm fails on core-updates)

[GNU bug Tracking System]

Your message dated Sun, 17 Dec 2017 22:30:31 +0100
with message-id <address@hidden>
and subject line Re: bug#29612: tests/graph.scm fails on core-updates
has caused the debbugs.gnu.org bug report #29612,
regarding tests/graph.scm fails on core-updates
to be marked as done.

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


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

--- Begin Message --- Subject: tests/graph.scm fails on core-updates Date: Thu, 07 Dec 2017 20:07:18 -0800 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)

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
Description: Binary data

signature.asc
Description: PGP signature

--- End Message ---

> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#29612: tests/graph.scm fails on core-updates
>
>
>
>
> Date: 
>
> Sun, 17 Dec 2017 22:30:31 +0100
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)
>
>
>
>
> Hi Chris,
>
> Chris Marusich <address@hidden> 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 address@hidden gnu/packages/commencement.scm:647 30b2780>
> > +    "static"))
> > result: FAIL
>
> Fixed in cafc97e2f37f18e106c9a9cb9110a1862e9d0526, thanks!
>
> Ludo’.
>
>
> --- End Message ---