diff options
Diffstat (limited to 'tests/dpop-proof-wrong-htu.scm')
| -rw-r--r-- | tests/dpop-proof-wrong-htu.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/tests/dpop-proof-wrong-htu.scm b/tests/dpop-proof-wrong-htu.scm index 299060e..68303d9 100644 --- a/tests/dpop-proof-wrong-htu.scm +++ b/tests/dpop-proof-wrong-htu.scm @@ -31,10 +31,11 @@ (define cnf (jkt jwk)) (define proof (parameterize ((p:current-date 0)) - (issue-dpop-proof - jwk - #:htm 'GET - #:htu (string->uri "https://example.com/other-res#frag")))) + (issue <dpop-proof> + jwk + #:jwk (public-key jwk) + #:htm 'GET + #:htu (string->uri "https://example.com/other-res#frag")))) (with-exception-handler (lambda (error) (unless (and (dpop-uri-mismatch? error) @@ -45,10 +46,10 @@ (raise-exception error))) (lambda () (parameterize ((p:current-date 10)) - (dpop-proof-decode 'GET - (string->uri "https://example.com/res?query") - proof - cnf)) + (decode <dpop-proof> proof + #:method 'GET + #:uri (string->uri "https://example.com/res?query") + #:cnf/jkt cnf)) (exit 2)) #:unwind? #t #:unwind-for-type &dpop-uri-mismatch))) |