~ruther/guix-local: tests: Adjust for 'http-fetch' change in (guix import json).

ce8963c5b7a728257920aeceeb89e40d166d09f4 — Ludovic Courtès 9 years ago 824e5fe

tests: Adjust for 'http-fetch' change in (guix import json).

This is a followup to commit 81e0bc1834490a1a8092c75a0733b15c2b407285.

* tests/cpan.scm ("cpan->guix-package"): Add a 'rest' argument to the
lambda that mocks 'http-fetch'.
* tests/crate.scm ("crate->guix-package"): Likewise.
* tests/gem.scm ("gem->guix-package"): Likewise.
* tests/pypi.scm ("pypi->guix-package"): Likewise.
("pypi->guix-package, wheels"): Likewise.

patch browse .tar.gz

4 files changed, 5 insertions(+), 5 deletions(-)

M tests/cpan.scm
M tests/crate.scm
M tests/gem.scm
M tests/pypi.scm

M tests/cpan.scm => tests/cpan.scm +1 -1

@@ 72,7 72,7 @@
                    test-source)
                   (_ (error "Unexpected URL: " url))))))))
         (mock ((guix http-client) http-fetch
-               (lambda (url)
+               (lambda (url . rest)
                  (match url
                    ("https://api.metacpan.org/release/Foo-Bar"
                     (values (open-input-string test-json)

M tests/crate.scm => tests/crate.scm +1 -1

@@ 65,7 65,7 @@
 (test-assert "crate->guix-package"
   ;; Replace network resources with sample data.
   (mock ((guix http-client) http-fetch
-         (lambda (url)
+         (lambda (url . rest)
            (match url
              ("https://crates.io/api/v1/crates/foo"
               (open-input-string test-crate))

M tests/gem.scm => tests/gem.scm +1 -1

@@ 47,7 47,7 @@
 (test-assert "gem->guix-package"
   ;; Replace network resources with sample data.
   (mock ((guix http-client) http-fetch
-         (lambda (url)
+         (lambda (url . rest)
            (match url
              ("https://rubygems.org/api/v1/gems/foo.json"
               (values (open-input-string test-json)

M tests/pypi.scm => tests/pypi.scm +2 -2

@@ 118,7 118,7 @@ baz > 13.37")
                ("https://example.com/foo-1.0.0-py2.py3-none-any.whl" #f)
                (_ (error "Unexpected URL: " url)))))
           (mock ((guix http-client) http-fetch
-                 (lambda (url)
+                 (lambda (url . rest)
                    (match url
                      ("https://pypi.python.org/pypi/foo/json"
                       (values (open-input-string test-json)


@@ 181,7 181,7 @@ baz > 13.37")
                  (delete-file-recursively "foo-1.0.0.dist-info")))
              (_ (error "Unexpected URL: " url)))))
         (mock ((guix http-client) http-fetch
-               (lambda (url)
+               (lambda (url . rest)
                  (match url
                    ("https://pypi.python.org/pypi/foo/json"
                     (values (open-input-string test-json)