diff options
Diffstat (limited to 'tests/resource-server.scm')
-rw-r--r-- | tests/resource-server.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/resource-server.scm b/tests/resource-server.scm index aba4bb0..b9f1036 100644 --- a/tests/resource-server.scm +++ b/tests/resource-server.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 @@ -39,10 +39,10 @@ (define jwks (make-jwks (list idp-key))) (define jwks-uri (string->uri "https://identity.provider/keys")) (define oidc-config - (make-oidc-configuration - jwks-uri - (string->uri "https://identity.provider/authorize") - (string->uri "https://identity.provider/token"))) + `((jwks_uri . ,(uri->string jwks-uri)) + (authorization_endpoint . "https://identity.provider/authorize") + (token_endpoint . "https://identity.provider/token") + (solid_oidc_supported . "https://solidproject.org/TR/solid-oidc"))) (define oidc-config-uri (string->uri "https://identity.provider/.well-known/openid-configuration")) @@ -60,10 +60,10 @@ idp-key #:alg 'RS256 #:webid subject - #:iss "https://identity.provider" + #:iss (string->uri "https://identity.provider") #:validity 3600 #:client-key client-key - #:client-id "https://client"))) + #:client-id (string->uri "https://client")))) (define uri (string->uri "https://resource.server/resource")) (define server-uri (string->uri "https://resource.server/")) (define method 'GET) |