diff options
Diffstat (limited to 'tests/token-endpoint-issue.scm')
-rw-r--r-- | tests/token-endpoint-issue.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm index 8fdd1ad..f986e8e 100644 --- a/tests/token-endpoint-issue.scm +++ b/tests/token-endpoint-issue.scm @@ -36,6 +36,12 @@ "token-endpoint-issue" (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")) @@ -49,7 +55,7 @@ (define endpoint (make-token-endpoint (string->uri "https://token-endpoint-issue.scm/token") - issuer key)) + issuer "key-file.jwk")) (receive (response response-body . _) ;; The code is fake! (let ((dpop @@ -90,7 +96,6 @@ #:port #t) (string-append "grant_type=authorization_code&code=" authz)))) (unless (eq? (response-code response) 200) - (write response) (exit 4)) (unless (eq? (car (response-content-type response)) 'application/json) (exit 5)) |