ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: upstream: Restore test that was skipped.

Browse source 
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

21
tests/upstream.scm
View file

@ -32,17 +32,18 @@ (define-module (test-upstream)
(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")))
(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"))
@ -52,6 +53,6 @@ (define-module (test-upstream)
(package "foo") (version "1")
(urls '("ftp://example.org/foo-1.tar.xz"))
(signature-urls
'("ftp://example.org/foo-1.tar.xz.sig"))))))
'("ftp://example.org/foo-1.tar.xz.sig")))))))
(test-end)