diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-06 12:07:13 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-06 12:52:46 +0200 |
| commit | 9d23792481d7ae8d75d9565dd2a0b1e17d08943b (patch) | |
| tree | c7b9933c8d946175d480dc8e50b8ad86a527d704 /tests | |
| parent | 888fb3e55a5deca32aa46a2bdc7fa5994768797d (diff) | |
Also log exceptions
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/client-token.scm | 4 | ||||
| -rw-r--r-- | tests/token-endpoint-issue.scm | 4 | ||||
| -rw-r--r-- | tests/token-endpoint-refresh.scm | 4 |
3 files changed, 7 insertions, 5 deletions
diff --git a/tests/client-token.scm b/tests/client-token.scm index 934cf2c..9c55582 100644 --- a/tests/client-token.scm +++ b/tests/client-token.scm @@ -93,7 +93,9 @@ #:headers headers #:port (open-input-string body))) (request-body body)) - (token-endpoint request request-body))) + (receive (response response-body user error) + (token-endpoint request request-body) + (values response response-body)))) (let ((response (token "https://issuer.client-token.scm" client-key diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm index d14a137..6f7d4dc 100644 --- a/tests/token-endpoint-issue.scm +++ b/tests/token-endpoint-issue.scm @@ -53,7 +53,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 code is fake! (let ((dpop (issue-dpop-proof @@ -74,7 +74,7 @@ "grant_type=authorization_code&code=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 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 |