diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-12-04 19:23:04 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-05 16:16:23 +0200 |
commit | 08c42c3c5d7a1a15b6c8a0d8283158863fdf020b (patch) | |
tree | 4b6b50eda24e47f4253faa1ba3fa2bec37912cb7 /tests/authorization-endpoint-no-args.scm | |
parent | d9f183614b1516834f648cc0269cd62a49154c18 (diff) |
Make an authorization endpoint
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))))) |