diff options
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") |