diff options
Diffstat (limited to 'tests/authorization-endpoint-submit-form.scm')
| -rw-r--r-- | tests/authorization-endpoint-submit-form.scm | 43 |
1 files changed, 24 insertions, 19 deletions
diff --git a/tests/authorization-endpoint-submit-form.scm b/tests/authorization-endpoint-submit-form.scm index 3de3e19..4f11db0 100644 --- a/tests/authorization-endpoint-submit-form.scm +++ b/tests/authorization-endpoint-submit-form.scm @@ -1,4 +1,4 @@ -;; webid-oidc, implementation of the Solid specification +;; disfluid, implementation of the Solid specification ;; Copyright (C) 2020, 2021 Vivien Kraus ;; This program is free software: you can redistribute it and/or modify @@ -14,21 +14,25 @@ ;; You should have received a copy of the GNU Affero General Public License ;; along with this program. If not, see <https://www.gnu.org/licenses/>. -(use-modules (webid-oidc authorization-endpoint) - (webid-oidc authorization-code) - (webid-oidc client-manifest) - (webid-oidc jwk) - (webid-oidc cache) - (webid-oidc jti) - (webid-oidc testing) - ((webid-oidc parameters) #:prefix p:) - (web uri) - (web request) - (web response) - (srfi srfi-19) - (web response) - (ice-9 optargs) - (ice-9 receive)) +(define-module (tests authorization-endpoint-submit-form) + #:use-module (webid-oidc authorization-endpoint) + #:use-module (webid-oidc authorization-code) + #:use-module (webid-oidc client-manifest) + #:use-module (webid-oidc jwk) + #:use-module (webid-oidc cache) + #:use-module (webid-oidc jti) + #:use-module (webid-oidc testing) + #:use-module ((webid-oidc parameters) #:prefix p:) + #:use-module (web uri) + #:use-module (web request) + #:use-module (web response) + #:use-module (srfi srfi-19) + #:use-module (web response) + #:use-module (ice-9 optargs) + #:use-module (ice-9 receive) + #:use-module (oop goops) + #:declarative? #t + #:duplicates (merge-generics)) (with-test-environment "authorization-endpoint-submit-form" @@ -42,9 +46,10 @@ (define what-uri-to-expect client) (define served (receive (response response-body) - (serve-client-manifest - (time-utc->date (make-time time-utc 0 3600)) - (make-client-manifest client (list redirect))) + (serve (make <client-manifest> + #:client-id client + #:redirect-uris (list redirect)) + (time-utc->date (make-time time-utc 0 3600))) (cons response response-body))) (define the-response (car served)) (define the-response-body (cdr served)) |