summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-11-10 11:58:43 +0100
committerLudovic Courtès <ludo@gnu.org>2016-11-10 11:58:43 +0100
commit324a2ba56c2f4c0d91567ed08024ae2c492f3b23 (patch)
tree4ae14e3baceab7cca2cce48486e295134de71610
parent8033772363b287ca529461e575ceb4a69d7af942 (diff)
downloadgnu-guix-324a2ba56c2f4c0d91567ed08024ae2c492f3b23.tar
gnu-guix-324a2ba56c2f4c0d91567ed08024ae2c492f3b23.tar.gz
tests: Adjust 'url-fetch' mocks to TLS changes.
This is a followup to bc3c41ce36349ed4ec758c70b48a7059e363043a. * tests/cpan.scm ("cpan->guix-package"): Add #:verify-certificate? parameter in 'url-fetch' mock. * tests/cran.scm ("description->package"): Likewise.
-rw-r--r--tests/cpan.scm4
-rw-r--r--tests/cran.scm4
2 files changed, 6 insertions, 2 deletions
diff --git a/tests/cpan.scm b/tests/cpan.scm
index 80ff044abd..e37fc437fc 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -61,7 +61,9 @@
(test-assert "cpan->guix-package"
;; Replace network resources with sample data.
(mock ((guix build download) url-fetch
- (lambda* (url file-name #:key (mirrors '()))
+ (lambda* (url file-name
+ #:key
+ (mirrors '()) verify-certificate?)
(with-output-to-file file-name
(lambda ()
(display
diff --git a/tests/cran.scm b/tests/cran.scm
index 896c5af06c..f92934c468 100644
--- a/tests/cran.scm
+++ b/tests/cran.scm
@@ -89,7 +89,9 @@ Date/Publication: 2015-07-14 14:15:16
(test-assert "description->package"
;; Replace network resources with sample data.
(mock ((guix build download) url-fetch
- (lambda* (url file-name #:key (mirrors '()))
+ (lambda* (url file-name
+ #:key
+ (mirrors '()) verify-certificate?)
(with-output-to-file file-name
(lambda ()
(display