diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-20 11:25:29 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-21 22:28:51 +0200 |
commit | e910b3ba2ded990a5193f7ea0cfad525332e4171 (patch) | |
tree | b04e74e7c06e0a0fde5edd7ac0b8773db94cd515 /tests/resource-server.scm | |
parent | dcd329af1ec765ca0fac97ef2dc18a3177d34083 (diff) |
JWS: use GOOPS
Diffstat (limited to 'tests/resource-server.scm')
-rw-r--r-- | tests/resource-server.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tests/resource-server.scm b/tests/resource-server.scm index 02b7e46..a8032b1 100644 --- a/tests/resource-server.scm +++ b/tests/resource-server.scm @@ -57,23 +57,23 @@ (else (exit 1)))) (define access-token (parameterize ((p:current-date 10)) - (issue-access-token - idp-key - #:webid subject - #:iss (string->uri "https://identity.provider") - #:validity 3600 - #:client-key client-key - #:client-id (string->uri "https://client")))) + (issue <access-token> + idp-key + #:webid subject + #:iss (string->uri "https://identity.provider") + #:client-key client-key + #:client-id (string->uri "https://client")))) (define uri (string->uri "https://resource.server/resource")) (define server-uri (string->uri "https://resource.server/")) (define method 'GET) (define dpop-proof (parameterize ((p:current-date 15)) - (issue-dpop-proof - client-key - #:htm method - #:htu uri - #:access-token access-token))) + (issue <dpop-proof> + client-key + #:jwk (public-key client-key) + #:htm method + #:htu uri + #:access-token access-token))) (define rq (call-with-input-string (format #f "GET /resource HTTP/1.1\r\n\ |