summaryrefslogtreecommitdiff
path: root/tests/machine/hetzner.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/machine/hetzner.scm')
-rw-r--r--tests/machine/hetzner.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/machine/hetzner.scm b/tests/machine/hetzner.scm
index 1552bcb9a08..6f02c349f91 100644
--- a/tests/machine/hetzner.scm
+++ b/tests/machine/hetzner.scm
@@ -234,11 +234,11 @@
234 (lambda* (api . options) 234 (lambda* (api . options)
235 servers)) 235 servers))
236 ((gnu machine hetzner http) hetzner-api-server-create 236 ((gnu machine hetzner http) hetzner-api-server-create
237 (lambda* (api name ssh-keys . options) 237 (lambda* (api name #:key ssh-keys #:allow-other-keys)
238 (set! servers (list (mock-server machine))) 238 (set! servers (list (mock-server machine)))
239 (car servers))) 239 (car servers)))
240 ((gnu machine hetzner http) hetzner-api-server-enable-rescue-system 240 ((gnu machine hetzner http) hetzner-api-server-enable-rescue-system
241 (lambda (api server ssh-keys) 241 (lambda* (api server #:key ssh-keys #:allow-other-keys)
242 (mock-action "enable_rescue"))) 242 (mock-action "enable_rescue")))
243 ((gnu machine hetzner http) hetzner-api-server-power-on 243 ((gnu machine hetzner http) hetzner-api-server-power-on
244 (lambda (api server) 244 (lambda (api server)