mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
tests: Adjust minetest tests.
Fixes a regression introduced in
e7910f4882
.
* tests/minetest.scm (call-with-packages): Add #:timeout parameter to
'http-fetch' mock.
This commit is contained in:
parent
12fd3a9755
commit
213d3cad6a
1 changed files with 1 additions and 1 deletions
|
@ -194,7 +194,7 @@ (define argument-list->json (cut apply arguments->json <>))
|
||||||
(scm->json-port
|
(scm->json-port
|
||||||
(list->vector (filter-map argument-list->json sorted-argument-lists))))
|
(list->vector (filter-map argument-list->json sorted-argument-lists))))
|
||||||
(mock ((guix http-client) http-fetch
|
(mock ((guix http-client) http-fetch
|
||||||
(lambda* (url #:key headers)
|
(lambda* (url #:key headers timeout)
|
||||||
(unless (string-prefix? "mock://api/packages/" url)
|
(unless (string-prefix? "mock://api/packages/" url)
|
||||||
(error "the URL ~a should not be used" url))
|
(error "the URL ~a should not be used" url))
|
||||||
(define resource
|
(define resource
|
||||||
|
|
Loading…
Reference in a new issue