[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: tests: Adjust for 'http-fetch' change in (guix import json).
From: |
Ludovic Courtès |
Subject: |
01/01: tests: Adjust for 'http-fetch' change in (guix import json). |
Date: |
Mon, 13 Feb 2017 10:05:29 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit ce8963c5b7a728257920aeceeb89e40d166d09f4
Author: Ludovic Courtès <address@hidden>
Date: Mon Feb 13 16:04:09 2017 +0100
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.
---
tests/cpan.scm | 2 +-
tests/crate.scm | 2 +-
tests/gem.scm | 2 +-
tests/pypi.scm | 4 ++--
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/tests/cpan.scm b/tests/cpan.scm
index 0c28a74..8b58851 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -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)
diff --git a/tests/crate.scm b/tests/crate.scm
index 0bb344b..eb93822 100644
--- a/tests/crate.scm
+++ b/tests/crate.scm
@@ -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))
diff --git a/tests/gem.scm b/tests/gem.scm
index 669cd8e..a39e8ba 100644
--- a/tests/gem.scm
+++ b/tests/gem.scm
@@ -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)
diff --git a/tests/pypi.scm b/tests/pypi.scm
index a132900..28cc115 100644
--- a/tests/pypi.scm
+++ b/tests/pypi.scm
@@ -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)