From 213d3cad6aa9207a86d22cdd31d2e1a978e5f017 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 9 Jun 2023 11:21:00 +0200
Subject: [PATCH] tests: Adjust minetest tests.

Fixes a regression introduced in
e7910f4882d520fcf8920df9ff4ddb00eb9ee41d.

* tests/minetest.scm (call-with-packages): Add #:timeout parameter to
'http-fetch' mock.
---
 tests/minetest.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/minetest.scm b/tests/minetest.scm
index cbb9e83889..78469bf95b 100644
--- a/tests/minetest.scm
+++ b/tests/minetest.scm
@@ -194,7 +194,7 @@
     (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