From 2a566b05c45d42a248ceb2984c5cf66857dbddc0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 4 Jun 2026 23:00:37 +0200 Subject: =?UTF-8?q?tests:=20Adjust=20Hetzner=20test=20for=20the=20new=20us?= =?UTF-8?q?e=20of=20=E2=80=98hetzner-api-images=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes a regression introduced in f98c00ab749e6b82e56a4a34d0789496451cbc59. * tests/machine/hetzner/http.scm ("hetzner-api-server-create-unit"): Rewrite using ‘match’ and add clause for /v1/images. Change-Id: Ib87ebb48c6765b5228a24092a974bd76605a7288 Signed-off-by: Ludovic Courtès --- tests/machine/hetzner/http.scm | 35 ++++++++++++++++++++--------------- 1 file changed, 20 insertions(+), 15 deletions(-) (limited to 'tests') diff --git a/tests/machine/hetzner/http.scm b/tests/machine/hetzner/http.scm index bd516db023b..2e7d140c7f9 100644 --- a/tests/machine/hetzner/http.scm +++ b/tests/machine/hetzner/http.scm @@ -24,7 +24,8 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-34) #:use-module (srfi srfi-64) - #:use-module (ssh key)) + #:use-module (ssh key) + #:use-module (ice-9 match)) ;; Unit and integration tests the (gnu machine hetzner http) module. @@ -371,20 +372,24 @@ server-x86 (mock ((gnu machine hetzner http) hetzner-api-request-send (lambda* (request #:key expected) - (cond - ((equal? "https://api.hetzner.cloud/v1/servers" - (hetzner-api-request-url request)) - (assert (equal? 'POST (hetzner-api-request-method request))) - (hetzner-api-response - (body `(("action" . ,action-create-server-alist) - ("server" . ,server-x86-alist))))) - ((equal? "https://api.hetzner.cloud/v1/actions" - (hetzner-api-request-url request)) - (assert (equal? 'GET (hetzner-api-request-method request))) - (hetzner-api-response - (body `(("actions" . ,(vector (cons `("status" . "success") - action-create-server-alist))) - ("meta" . ,meta-page-alist)))))))) + (match (list (hetzner-api-request-method request) + (hetzner-api-request-url request)) + (('GET "https://api.hetzner.cloud/v1/images") + (hetzner-api-response + (body `(("images" + . #((("id" . 123) + ("created_from" . null) + ("protection" . (("delete" . #t))) + ("os_flavor" . "debian")))))))) + (('POST "https://api.hetzner.cloud/v1/servers") + (hetzner-api-response + (body `(("action" . ,action-create-server-alist) + ("server" . ,server-x86-alist))))) + (('GET "https://api.hetzner.cloud/v1/actions") + (hetzner-api-response + (body `(("actions" . ,(vector (cons `("status" . "success") + action-create-server-alist))) + ("meta" . ,meta-page-alist)))))))) (hetzner-api-server-create (hetzner-api) %server-name #:ssh-keys (list ssh-key-root)))) -- cgit v1.2.3