From 324a2ba56c2f4c0d91567ed08024ae2c492f3b23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 10 Nov 2016 11:58:43 +0100
Subject: [PATCH] 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.
---
 tests/cpan.scm | 4 +++-
 tests/cran.scm | 4 +++-
 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 @@ (define test-source
 (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 @@ (define simple-alist
 (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