diff options
Diffstat (limited to 'tests/token-endpoint-refresh.scm')
| -rw-r--r-- | tests/token-endpoint-refresh.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tests/token-endpoint-refresh.scm b/tests/token-endpoint-refresh.scm index 2d5ece4..f14d648 100644 --- a/tests/token-endpoint-refresh.scm +++ b/tests/token-endpoint-refresh.scm @@ -35,7 +35,6 @@ (with-test-environment "token-endpoint-refresh" (lambda () - (define alg 'RS256) (define key (generate-key #:n-size 2048)) (define client-key (generate-key #:n-size 2048)) (define subject (string->uri "https://token-endpoint-issue.scm/profile/card#me")) @@ -46,14 +45,13 @@ (issue-refresh-token subject client (jkt client-key))) (define endpoint (make-token-endpoint (string->uri "https://token-endpoint-issue.scm/token") - issuer alg key validity)) + issuer key validity)) (receive (response response-body . _) ;; The refresh token is fake! (let ((dpop (parameterize ((p:current-date 0)) (issue-dpop-proof client-key - #:alg alg #:htm 'POST #:htu (string->uri "https://token-endpoint-issue.scm/token"))))) @@ -73,7 +71,6 @@ (parameterize ((p:current-date 10)) (issue-dpop-proof client-key - #:alg alg #:htm 'POST #:htu (string->uri "https://token-endpoint-issue.scm/token"))))) |