diff options
Diffstat (limited to 'tests/dpop-proof-valid.scm')
| -rw-r--r-- | tests/dpop-proof-valid.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/dpop-proof-valid.scm b/tests/dpop-proof-valid.scm index 71ef602..1ef50d4 100644 --- a/tests/dpop-proof-valid.scm +++ b/tests/dpop-proof-valid.scm @@ -30,15 +30,16 @@ (define cnf (jkt jwk)) (define proof (parameterize ((p:current-date 0)) - (issue-dpop-proof + (issue <dpop-proof> jwk + #:jwk (public-key jwk) #:htm 'GET #:htu (string->uri "https://example.com/res#frag")))) (define decoded (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/check cnf))) (unless decoded (exit 1)))) |