diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-16 23:03:12 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:25:03 +0200 |
commit | fa486f2e136a898d1b1548ec90757a78c65a0b70 (patch) | |
tree | 7601f939c6859547cc2df38e587c5d9473bae76d /tests/resource-server.scm | |
parent | 86bd90866fdc2ab5234c6e09e39bfa972f7fa395 (diff) |
JWK: document it, and use GOOPS
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)) |