diff options
Diffstat (limited to 'tests/token-endpoint-refresh.scm')
-rw-r--r-- | tests/token-endpoint-refresh.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/token-endpoint-refresh.scm b/tests/token-endpoint-refresh.scm index cd584ab..2b5be1f 100644 --- a/tests/token-endpoint-refresh.scm +++ b/tests/token-endpoint-refresh.scm @@ -51,7 +51,7 @@ (string->uri "https://token-endpoint-issue.scm/token") issuer alg key validity jti-list #:current-time current-time)) - (receive (response response-body) + (receive (response response-body user error) ;; The refresh token is fake! (let ((dpop (issue-dpop-proof @@ -72,7 +72,7 @@ "refresh_token=fake")) (unless (eq? (response-code response) 400) (exit 3)) - (receive (response response-body) + (receive (response response-body user error) (let ((dpop (issue-dpop-proof client-key |