diff options
Diffstat (limited to 'tests/machine/hetzner.scm')
| -rw-r--r-- | tests/machine/hetzner.scm | 4 |
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) |
