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/oidc-configuration.scm | |
| parent | 86bd90866fdc2ab5234c6e09e39bfa972f7fa395 (diff) | |
JWK: document it, and use GOOPS
Diffstat (limited to 'tests/oidc-configuration.scm')
| -rw-r--r-- | tests/oidc-configuration.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/oidc-configuration.scm b/tests/oidc-configuration.scm index 983c0f7..7f76280 100644 --- a/tests/oidc-configuration.scm +++ b/tests/oidc-configuration.scm @@ -22,10 +22,11 @@ (web uri) (web response) (srfi srfi-19) - (ice-9 receive)) + (ice-9 receive) + (oop goops)) (with-test-environment - "jwks-get" + "oidc-configuration" (lambda () (define* (respond uri #:key (headers '())) (unless (null? headers) @@ -127,7 +128,7 @@ #:http-get cache-http-get)) (unless (oidc-configuration? cfg) (exit 3)) - (unless (jwks? jwks) + (unless (is-a? jwks <jwks>) (exit 4)) (let ((my-oidc `((jwks_uri . "https://example.com/keys") (authorization_endpoint . "https://example.com/authorize") |