diff options
| author | Mark H Weaver <mhw@netris.org> | 2019-08-22 14:24:11 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2019-08-22 14:24:11 -0400 |
| commit | d020821c0bd2206a5f3d4db155f2a9a3de7dc670 (patch) | |
| tree | c792d7e0e0d31cf30382ea638d46fefa6f55dfaa /tests | |
| parent | 47c95c94b4ef432ceee9afd3a41bd582c506cf8f (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.scm | 13 |
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") |