diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-17 18:31:01 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:25:03 +0200 |
commit | 55195e4659339f56036c2f98d06cfd59a0141514 (patch) | |
tree | 0e4853d1039021ac337b5879a9d3d89d05287dd5 /tests/token-endpoint-refresh.scm | |
parent | 6d70723f85635b23aa8b52bb5adfb3140d9029bd (diff) |
JWK: the default signature algorithm "alg" is now a key parameter
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"))))) |