From 940a8a3c60adc6f3ea804f9294edfcd385e7440b Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Sun, 9 May 2021 22:26:23 +0200 Subject: Define the web pages for the authorization endpoint --- tests/unknown-client-locale.scm | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 tests/unknown-client-locale.scm (limited to 'tests/unknown-client-locale.scm') 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))))) -- cgit v1.2.3