From bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Sun, 1 Aug 2021 14:51:28 +0200 Subject: 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. --- tests/authorization-endpoint-get-form.scm | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) (limited to 'tests/authorization-endpoint-get-form.scm') diff --git a/tests/authorization-endpoint-get-form.scm b/tests/authorization-endpoint-get-form.scm index d71d534..7dbf6ba 100644 --- a/tests/authorization-endpoint-get-form.scm +++ b/tests/authorization-endpoint-get-form.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,23 +34,20 @@ (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 - (format #f "https://authorization-endpoint-get-form.scm/authorize?client_id=~a&redirect_uri=~a" - (uri-encode "https://authorization-endpoint-get-form.scm/client/card#app") - (uri-encode "https://authorization-endpoint-get-form.scm/client/redirect")))) - "") + (parameterize ((p:current-date 0)) + (endpoint + (build-request (string->uri + (format #f "https://authorization-endpoint-get-form.scm/authorize?client_id=~a&redirect_uri=~a" + (uri-encode "https://authorization-endpoint-get-form.scm/client/card#app") + (uri-encode "https://authorization-endpoint-get-form.scm/client/redirect")))) + "")) (unless (eq? (response-code response) 200) (exit 3)) (unless (response-content-type response) -- cgit v1.2.3