diff options
Diffstat (limited to 'guile/email-key-rotation/tests/fake-gandi-livedns.scm')
| -rw-r--r-- | guile/email-key-rotation/tests/fake-gandi-livedns.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guile/email-key-rotation/tests/fake-gandi-livedns.scm b/guile/email-key-rotation/tests/fake-gandi-livedns.scm index 4e2df13..4a183ce 100644 --- a/guile/email-key-rotation/tests/fake-gandi-livedns.scm +++ b/guile/email-key-rotation/tests/fake-gandi-livedns.scm @@ -15,7 +15,15 @@ #:duplicates (merge-generics)) (define (fake-http-request expected-domain expected-api-key log-port) - (lambda* (uri #:key headers body) + (lambda* (uri #:key method headers body) + (unless (or (equal? method 'POST) + (equal? method 'PUT)) + (raise-exception + (make-exception + (make-error) + (make-exception-with-irritants (list method)) + (make-exception-with-message + "Gandi method is neither POST nor PUT")))) (unless (equal? (uri-scheme uri) 'https) (raise-exception (make-exception |