diff options
Diffstat (limited to 'tests/token-endpoint-issue.scm')
| -rw-r--r-- | tests/token-endpoint-issue.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm index 3b21f9b..c80658c 100644 --- a/tests/token-endpoint-issue.scm +++ b/tests/token-endpoint-issue.scm @@ -35,7 +35,6 @@ (with-test-environment "token-endpoint-issue" (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,21 +45,19 @@ (parameterize ((p:current-date 0)) (issue-authorization-code key - #:alg alg #:validity 120 #:webid subject #:client-id client))) (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 code 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"))))) @@ -80,7 +77,6 @@ (parameterize ((p:current-date 10)) (issue-dpop-proof client-key - #:alg alg #:htm 'POST #:htu (string->uri "https://token-endpoint-issue.scm/token"))))) |