01/01: tests: Adjust 'url-fetch' mocks to TLS changes.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 324a2ba56c2f4c0d91567ed08024ae2c492f3b23
Author: Ludovic Courtès <address@hidden>
Date:   Thu Nov 10 11:58:43 2016 +0100

    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 80ff044..e37fc43 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 896c5af..f92934c 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