diff options
Diffstat (limited to 'tests/dpop-proof-invalid-ath.scm')
-rw-r--r-- | tests/dpop-proof-invalid-ath.scm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/tests/dpop-proof-invalid-ath.scm b/tests/dpop-proof-invalid-ath.scm index a82cf47..8c33e77 100644 --- a/tests/dpop-proof-invalid-ath.scm +++ b/tests/dpop-proof-invalid-ath.scm @@ -33,20 +33,20 @@ (define cnf (jkt jwk)) (define access-token (parameterize ((p:current-date 10)) - (issue-access-token - idp-key - #:webid (string->uri "https://data.provider/subject") - #:iss (string->uri "https://identity.provider") - #:validity 3600 - #:client-key jwk - #:client-id (string->uri "https://client")))) + (issue <access-token> + idp-key + #:webid (string->uri "https://data.provider/subject") + #:iss (string->uri "https://identity.provider") + #:client-key jwk + #:client-id (string->uri "https://client")))) (define proof (parameterize ((p:current-date 0)) - (issue-dpop-proof - jwk - #:htm 'GET - #:htu (string->uri "https://example.com/res?query") - #:access-token "aaaaaaaaaaaaaaa"))) + (issue <dpop-proof> + jwk + #:jwk (public-key jwk) + #:htm 'GET + #:htu (string->uri "https://example.com/res?query") + #:access-token "aaaaaaaaaaaaaaa"))) (with-exception-handler (lambda (error) (unless (and (dpop-invalid-ath? error) @@ -57,11 +57,11 @@ (raise-exception error))) (lambda () (parameterize ((p:current-date 10)) - (dpop-proof-decode 'GET - (string->uri "https://example.com/res?query") - proof - cnf - #:access-token access-token)) + (decode <dpop-proof> proof + #:method 'GET + #:uri (string->uri "https://example.com/res?query") + #:cnf/check cnf + #:access-token access-token)) (exit 2)) #:unwind? #t #:unwind-for-type &dpop-invalid-ath))) |