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:
Ludovic Courtès 2023-06-09 11:21:00 +02:00
parent 12fd3a9755
commit 213d3cad6a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -194,7 +194,7 @@ (define argument-list->json (cut apply arguments->json <>))
(scm->json-port
(list->vector (filter-map argument-list->json sorted-argument-lists))))
(mock ((guix http-client) http-fetch
(lambda* (url #:key headers)
(lambda* (url #:key headers timeout)
(unless (string-prefix? "mock://api/packages/" url)
(error "the URL ~a should not be used" url))
(define resource