diff options
Diffstat (limited to 'tests/unknown-client-locale.scm')
| -rw-r--r-- | tests/unknown-client-locale.scm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/unknown-client-locale.scm b/tests/unknown-client-locale.scm new file mode 100644 index 0000000..fcd84da --- /dev/null +++ b/tests/unknown-client-locale.scm @@ -0,0 +1,29 @@ +(use-modules (webid-oidc authorization-page) + (webid-oidc testing) + (webid-oidc errors) + (web uri) + (srfi srfi-19) + (web response) + (ice-9 optargs) + (ice-9 receive)) + +(with-test-environment + "unknown-client-locale" + (lambda () + (let ((problem-acknowledged #f)) + (receive (response response-body) + (with-exception-handler + (lambda (error) + (unless ((record-predicate &unknown-client-locale) error) + (format (current-error-port) "Huh... ~a\n" (error->str error)) + (exit 1)) + (set! problem-acknowledged #t)) + (lambda () + (authorization-page "qdfkljsmfklsjmf" #f + (string->uri "https://example.com") + (string->uri "https://example.com")))) + (unless (eqv? (response-code response) 200) + (exit 2)) + (unless problem-acknowledged + (exit 3)) + (format (current-error-port) "~a" response-body))))) |