summary refs log tree commit diff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2016-12-18 13:35:21 +0100
committerRicardo Wurmus <rekado@elephly.net>2016-12-18 13:39:20 +0100
commite69c1a544606d6870eef959c3cda17fe6bdce875 (patch)
tree0b9ac60b19fce09d6cb9b06b7f0f9c02bfacf6a0
parent866872aa712ac6f90720a5a9e970b4a7fdbf922b (diff)
downloadguix-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.scm10
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")