diff options
Diffstat (limited to 'tests/token-endpoint-refresh.scm')
-rw-r--r-- | tests/token-endpoint-refresh.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tests/token-endpoint-refresh.scm b/tests/token-endpoint-refresh.scm index 90e2625..91effe0 100644 --- a/tests/token-endpoint-refresh.scm +++ b/tests/token-endpoint-refresh.scm @@ -37,15 +37,22 @@ "token-endpoint-refresh" (lambda () (define key (generate-key #:n-size 2048)) + (call-with-output-file "key-file.jwk" + (lambda (port) + (stubs:scm->json + (key->jwk key) + port + #:pretty #t))) (define client-key (generate-key #:n-size 2048)) (define subject (string->uri "https://token-endpoint-issue.scm/profile/card#me")) (define client (string->uri "https://token-endpoint-issue.scm/client/card#app")) (define issuer (string->uri "https://issuer.token-endpoint-issue.scm")) (define refresh-code (issue-refresh-token subject client (jkt client-key))) - (define endpoint (make-token-endpoint - (string->uri "https://token-endpoint-issue.scm/token") - issuer key)) + (define endpoint + (make-token-endpoint + (string->uri "https://token-endpoint-issue.scm/token") + issuer "key-file.jwk")) (receive (response response-body . _) ;; The refresh token is fake! (let ((dpop @@ -67,7 +74,7 @@ "refresh_token=fake"))) (unless (eq? (response-code response) 400) (exit 3)) - (receive (response response-body user error) + (receive (response response-body) (let ((dpop (parameterize ((p:current-date 10)) (issue <dpop-proof> |