diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 14:51:28 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 18:08:56 +0200 |
commit | bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 (patch) | |
tree | 00f590033af904a6a493e41bdebe9b3ddd73043b /tests/authorization-endpoint-no-args.scm | |
parent | d8c2ca930673da858d63f2dea9526c259a2dd936 (diff) |
Use guile parameters
With parameters, the API does not need to care about the directory
where to load files and how to get the time.
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))))) |