JWS: use GOOPS

1 files changed, 9 insertions, 8 deletions

diff --git a/tests/dpop-proof-iat-in-future.scm b/tests/dpop-proof-iat-in-future.scm
index f212643..7e6a3b1 100644
--- a/tests/dpop-proof-iat-in-future.scm
+++ b/tests/dpop-proof-iat-in-future.scm
@@ -32,10 +32,11 @@
    (define cnf (jkt jwk))
    (define proof
      (parameterize ((p:current-date 10))
-       (issue-dpop-proof
-        jwk
-        #:htm 'GET
-        #:htu (string->uri "https://example.com/res#frag"))))
+       (issue <dpop-proof>
+              jwk
+              #:jwk (public-key jwk)
+              #:htm 'GET
+              #:htu (string->uri "https://example.com/res#frag"))))
    (with-exception-handler
        (lambda (error)
          (unless (and (signed-in-future? error)
@@ -46,10 +47,10 @@
            (raise-exception error)))
      (lambda ()
        (parameterize ((p:current-date 0))
-         (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))
        (exit 2))
      #:unwind? #t
      #:unwind-for-type &signed-in-future)))