diff options
Diffstat (limited to 'tests/resource-server.scm')
| -rw-r--r-- | tests/resource-server.scm | 7 |
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)) |