bug#29612: tests/graph.scm fails on core-updates

[Ludovic Courtès]

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’.