tests: Adjust cpan tests.
This is a follow-up to commit ff55fe559951b88bfd691b9dada3a0f26002c4cb. * tests/cpan.scm (source-url-http, source-url-https): Use cpan-source-url.
This commit is contained in:
parent
866872aa71
commit
e69c1a5446
@ -101,13 +101,15 @@
|
|||||||
(pk 'fail x #f)))))
|
(pk 'fail x #f)))))
|
||||||
|
|
||||||
(test-equal "source-url-http"
|
(test-equal "source-url-http"
|
||||||
((@@ (guix import cpan) fix-source-url)
|
((@@ (guix import cpan) cpan-source-url)
|
||||||
"http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
`(("download_url" .
|
||||||
|
"http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")))
|
||||||
"mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
"mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
||||||
|
|
||||||
(test-equal "source-url-https"
|
(test-equal "source-url-https"
|
||||||
((@@ (guix import cpan) fix-source-url)
|
((@@ (guix import cpan) cpan-source-url)
|
||||||
"https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
`(("download_url" .
|
||||||
|
"https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")))
|
||||||
"mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
"mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz")
|
||||||
|
|
||||||
(test-end "cpan")
|
(test-end "cpan")
|
||||||
|
Loading…
Reference in New Issue
Block a user