diff options
Diffstat (limited to 'tests/authorization-endpoint-no-args.scm')
-rw-r--r-- | tests/authorization-endpoint-no-args.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/tests/authorization-endpoint-no-args.scm b/tests/authorization-endpoint-no-args.scm index bd24fa2..66579a2 100644 --- a/tests/authorization-endpoint-no-args.scm +++ b/tests/authorization-endpoint-no-args.scm @@ -17,6 +17,7 @@ (use-modules (webid-oidc authorization-endpoint) (webid-oidc jwk) (webid-oidc testing) + ((webid-oidc parameters) #:prefix p:) (web uri) (web request) (web response) @@ -33,20 +34,17 @@ (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)) + #:http-get http-get)) (receive (response response-body) - (endpoint - (build-request (string->uri - "https://authorization-endpoint-get-form.scm/authorize")) - "") + (parameterize ((p:current-date 0)) + (endpoint + (build-request (string->uri + "https://authorization-endpoint-get-form.scm/authorize")) + "")) (unless (eq? (response-code response) 400) (exit 3))))) |