jmd pushed a commit to branch wip-installer
in repository guix.
commit 8b795e96316518147c38bc52b931d063af4d829c
Author: Ricardo Wurmus <[email protected]>
Date: Sun Dec 18 13:35:21 2016 +0100
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.
---
tests/cpan.scm | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/tests/cpan.scm b/tests/cpan.scm
index e37fc43..56effc7 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")
