JWK: document it, and use GOOPS

1 files changed, 4 insertions, 3 deletions

diff --git a/tests/resource-server.scm b/tests/resource-server.scm
index b9f1036..4df742f 100644
--- a/tests/resource-server.scm
+++ b/tests/resource-server.scm
@@ -29,14 +29,15 @@
              (srfi srfi-19)
              (web response)
              (ice-9 optargs)
-             (ice-9 receive))
+             (ice-9 receive)
+             (oop goops))
 
 (with-test-environment
  "resource-server"
  (lambda ()
    (define client-key (generate-key #:n-size 2048))
    (define idp-key (generate-key #:n-size 2048))
-   (define jwks (make-jwks (list idp-key)))
+   (define jwks (make <jwks> #:keys (list idp-key)))
    (define jwks-uri (string->uri "https://identity.provider/keys"))
    (define oidc-config
      `((jwks_uri . ,(uri->string jwks-uri))
@@ -52,7 +53,7 @@
      (cond ((equal? uri oidc-config-uri)
             (serve-oidc-configuration exp oidc-config))
            ((equal? uri jwks-uri)
-            (serve-jwks exp jwks))
+            (serve jwks exp))
            (else (exit 1))))
    (define access-token
      (parameterize ((p:current-date 10))