summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2019-08-22 14:24:11 -0400
committerMark H Weaver <mhw@netris.org>2019-08-22 14:24:11 -0400
commitd020821c0bd2206a5f3d4db155f2a9a3de7dc670 (patch)
treec792d7e0e0d31cf30382ea638d46fefa6f55dfaa /tests
parent47c95c94b4ef432ceee9afd3a41bd582c506cf8f (diff)
Revert "import: cpan: Adapt for the change to guile-json version 3."
This reverts commit 01ce7af25add55514f737af48ea6c127bedfde67.
Diffstat (limited to 'tests')
-rw-r--r--tests/cpan.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/tests/cpan.scm b/tests/cpan.scm
index cdd6c0e76a..189dd027e6 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -24,8 +24,7 @@
#:use-module (guix tests)
#:use-module (guix grafts)
#:use-module (srfi srfi-64)
- #:use-module (ice-9 match)
- #:use-module (ice-9 hash-table))
+ #:use-module (ice-9 match))
;; Globally disable grafts because they can trigger early builds.
(%graft? #f)
@@ -110,16 +109,14 @@
(test-equal "source-url-http"
((@@ (guix import cpan) cpan-source-url)
- (alist->hash-table
- `(("download_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")
(test-equal "source-url-https"
((@@ (guix import cpan) cpan-source-url)
- (alist->hash-table
- `(("download_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")
(test-end "cpan")