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:
parent
8033772363
commit
324a2ba56c
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue