Switch to a more sensible error reporting system

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)