bug#34229: tests/upstream.scm fails on master

[Ludovic Courtès]

Hello,

Chris Marusich <address@hidden> skribis:

> At v0.16.0-1516-g86228e569 (current master branch head), the
> upstream.scm test fails with the following log:
>
> FAIL: tests/upstream
> ====================
>
> test-name: coalesce-sources same version
> location: /home/marusich/guix/tests/upstream.scm:27
> source:
> + (test-equal
> +   "coalesce-sources same version"
> +   (list (upstream-source
> +           (package "foo")
> +           (version "1")
> +           (urls '("ftp://example.org/foo-1.tar.xz";
> +                   "ftp://example.org/foo-1.tar.gz";))
> +           (signature-urls
> +             '("ftp://example.org/foo-1.tar.xz.sig";
> +               "ftp://example.org/foo-1.tar.gz.sig";))))
> +   (coalesce-sources
> +     (list (upstream-source
> +             (package "foo")
> +             (version "1")
> +             (urls '("ftp://example.org/foo-1.tar.gz";))
> +             (signature-urls
> +               '("ftp://example.org/foo-1.tar.gz.sig";)))
> +           (upstream-source
> +             (package "foo")
> +             (version "1")
> +             (urls '("ftp://example.org/foo-1.tar.xz";))
> +             (signature-urls
> +               '("ftp://example.org/foo-1.tar.xz.sig";))))))
> expected-value: (#<<upstream-source> package: "foo" version: "1" urls: 
> ("ftp://example.org/foo-1.tar.xz"; "ftp://example.org/foo-1.tar.gz";) 
> signature-urls: ("ftp://example.org/foo-1.tar.xz.sig"; 
> "ftp://example.org/foo-1.tar.gz.sig";) input-changes: #<procedure d8a360 at 
> ice-9/eval.scm:330:13 ()>>)
> actual-value: (#<<upstream-source> package: "foo" version: "1" urls: 
> ("ftp://example.org/foo-1.tar.xz"; "ftp://example.org/foo-1.tar.gz";) 
> signature-urls: ("ftp://example.org/foo-1.tar.xz.sig"; 
> "ftp://example.org/foo-1.tar.gz.sig";) input-changes: #<procedure db3360 at 
> ice-9/eval.scm:330:13 ()>>)
> result: FAIL

Ricardo is working on it.  ;-)
See <https://issues.guix.info/issue/34040>.

Ludo’.