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

[Chris Marusich]

Hi,

At v0.16.0-1516-g86228e569 (current master branch head), the
upstream.scm test fails with the following log:

--8<---------------cut here---------------start------------->8---
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

random seed for tests: 1548664767
--8<---------------cut here---------------end--------------->8---

-- 
Chris

signature.asc
Description: PGP signature