mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user