diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2016-12-18 13:35:21 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2016-12-18 13:39:20 +0100 |
| commit | e69c1a544606d6870eef959c3cda17fe6bdce875 (patch) | |
| tree | 0b9ac60b19fce09d6cb9b06b7f0f9c02bfacf6a0 | |
| parent | 866872aa712ac6f90720a5a9e970b4a7fdbf922b (diff) | |
| download | guix-e69c1a544606d6870eef959c3cda17fe6bdce875.tar.gz | |
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.
| -rw-r--r-- | tests/cpan.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/cpan.scm b/tests/cpan.scm index e37fc437fc..56effc7201 100644 --- a/tests/cpan.scm +++ b/tests/cpan.scm @@ -101,13 +101,15 @@ (pk 'fail x #f))))) (test-equal "source-url-http" - ((@@ (guix import cpan) fix-source-url) - "http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") + ((@@ (guix import cpan) cpan-source-url) + `(("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") (test-equal "source-url-https" - ((@@ (guix import cpan) fix-source-url) - "https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") + ((@@ (guix import cpan) cpan-source-url) + `(("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") (test-end "cpan") |