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

This is a followup to bc3c41ce36.

* tests/cpan.scm ("cpan->guix-package"): Add #:verify-certificate?
parameter in 'url-fetch' mock.
* tests/cran.scm ("description->package"): Likewise.
This commit is contained in:
Ludovic Courtès 2016-11-10 11:58:43 +01:00
parent 8033772363
commit 324a2ba56c
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 6 additions and 2 deletions

View File

@ -61,7 +61,9 @@
(test-assert "cpan->guix-package" (test-assert "cpan->guix-package"
;; Replace network resources with sample data. ;; Replace network resources with sample data.
(mock ((guix build download) url-fetch (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 (with-output-to-file file-name
(lambda () (lambda ()
(display (display

View File

@ -89,7 +89,9 @@ Date/Publication: 2015-07-14 14:15:16
(test-assert "description->package" (test-assert "description->package"
;; Replace network resources with sample data. ;; Replace network resources with sample data.
(mock ((guix build download) url-fetch (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 (with-output-to-file file-name
(lambda () (lambda ()
(display (display