JWS: use GOOPS

1 files changed, 10 insertions, 9 deletions

diff --git a/tests/dpop-proof-no-ath.scm b/tests/dpop-proof-no-ath.scm
index ec37836..60c9cee 100644
--- a/tests/dpop-proof-no-ath.scm
+++ b/tests/dpop-proof-no-ath.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/res?query"))))
+       (issue <dpop-proof>
+              jwk
+              #:jwk (public-key jwk)
+              #:htm 'GET
+              #:htu (string->uri "https://example.com/res?query"))))
    (with-exception-handler
        (lambda (error)
          (unless (and (dpop-invalid-ath? error)
@@ -45,11 +46,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 "aaa"))
+         (decode <dpop-proof> proof
+                 #:method 'GET
+                 #:uri (string->uri "https://example.com/res?query")
+                 #:cnf/check cnf
+                 #:access-token "aaa"))
        (exit 2))
      #:unwind? #t
      #:unwind-for-type &dpop-invalid-ath)))