nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: Adjust cpan tests. 

This is a follow-up to commit ff55fe5599.

* tests/cpan.scm (source-url-http, source-url-https): Use
cpan-source-url.
This commit is contained in:
Ricardo Wurmus 2016-12-18 13:35:21 +01:00
parent 866872aa71
commit e69c1a5446
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/cpan.scm
View File

@ -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")