~ruther/guix-local: tests: Adjust 'url-fetch' mocks to TLS changes.

324a2ba56c2f4c0d91567ed08024ae2c492f3b23 — Ludovic Courtès 9 years ago 8033772

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.

patch browse .tar.gz

2 files changed, 6 insertions(+), 2 deletions(-)

M tests/cpan.scm
M tests/cran.scm

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

@@ 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

M tests/cran.scm => tests/cran.scm +3 -1

@@ 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