mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05: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:
parent
8033772363
commit
324a2ba56c
2 changed files with 6 additions and 2 deletions
|
@ -61,7 +61,9 @@ (define test-source
|
|||
(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 @@ (define simple-alist
|
|||
(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
|
||||
|
|
Loading…
Reference in a new issue