TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tests: upstream: Restore test that was skipped. 

This test was being skipped since
ea6fb108f6.

* tests/upstream.scm ("coalesce-sources same version"): Compare a
serialized form of <upstream-source>.
This commit is contained in:
Ludovic Courtès 2023-05-17 17:02:16 +02:00
parent cd262c403f
commit 5d022d5563
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tests/upstream.scm
View File

@ -32,26 +32,27 @@
(test-begin "upstream")
;; FIXME: Temporarily skipping this test; see <https://bugs.gnu.org/34229>.
(test-skip 1)
(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"))))
'((source "foo" "1"
("ftp://example.org/foo-1.tar.xz"
"ftp://example.org/foo-1.tar.gz")
("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"))))))
(map (lambda (source)
`(source ,(upstream-source-package source)
,(upstream-source-version source)
,(upstream-source-urls source)
,(upstream-source-signature-urls source)))
(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")))))))
(test-end)