diff options
Diffstat (limited to 'tests/authorization-endpoint-no-args.scm')
-rw-r--r-- | tests/authorization-endpoint-no-args.scm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/authorization-endpoint-no-args.scm b/tests/authorization-endpoint-no-args.scm new file mode 100644 index 0000000..04ab575 --- /dev/null +++ b/tests/authorization-endpoint-no-args.scm @@ -0,0 +1,36 @@ +(use-modules (webid-oidc authorization-endpoint) + (webid-oidc jwk) + (webid-oidc testing) + (web uri) + (web request) + (web response) + (srfi srfi-19) + (web response) + (ice-9 optargs) + (ice-9 receive)) + +(with-test-environment + "authorization-endpoint-get-form" + (lambda () + (define alg 'RS256) + (define key (generate-key #:n-size 2048)) + (define subject (string->uri "https://authorization-endpoint-get-form.scm/profile/card#me")) + (define password "p4ssw0rd") + (define validity 120) + (define the-time 0) + (define (current-time) + (make-time time-utc 0 the-time)) + (define* (http-get uri #:key (headers '())) + (exit 2)) + (define endpoint + (make-authorization-endpoint + subject password alg key validity + #:http-get http-get + #:current-time current-time)) + (receive (response response-body) + (endpoint + (build-request (string->uri + "https://authorization-endpoint-get-form.scm/authorize")) + "") + (unless (eq? (response-code response) 400) + (exit 3))))) |