Use guile parameters

With parameters, the API does not need to care about the directory
where to load files and how to get the time.

1 files changed, 12 insertions, 13 deletions

diff --git a/tests/dpop-proof-wrong-key.scm b/tests/dpop-proof-wrong-key.scm
index ae6f177..497ae0e 100644
--- a/tests/dpop-proof-wrong-key.scm
+++ b/tests/dpop-proof-wrong-key.scm
@@ -19,6 +19,7 @@
              (webid-oidc jwk)
              (webid-oidc testing)
              (webid-oidc errors)
+             ((webid-oidc parameters) #:prefix p:)
              (web uri)
              (srfi srfi-19)
              (web response))
@@ -28,26 +29,24 @@
  (lambda ()
    (define jwk (generate-key #:n-size 2048))
    (define cnf (jkt (generate-key #:n-size 2048)))
-   (define blacklist (make-jti-list))
    (define proof
-     (issue-dpop-proof
-      jwk
-      #:alg 'RS256
-      #:htm 'GET
-      #:htu (string->uri "https://example.com/res#frag")
-      #:iat (time-utc->date (make-time time-utc 0 0))))
+     (parameterize ((p:current-date 0))
+       (issue-dpop-proof
+        jwk
+        #:alg 'RS256
+        #:htm 'GET
+        #:htu (string->uri "https://example.com/res#frag"))))
    (with-exception-handler
        (lambda (error)
          (unless ((record-predicate &dpop-unconfirmed-key)
                   ((record-accessor &cannot-decode-dpop-proof 'cause) error))
            (raise-exception error)))
      (lambda ()
-       (dpop-proof-decode (time-utc->date (make-time time-utc 0 10))
-                          blacklist
-                          'GET
-                          (string->uri "https://example.com/res?query")
-                          proof
-                          cnf)
+       (parameterize ((p:current-date 10))
+         (dpop-proof-decode 'GET
+                            (string->uri "https://example.com/res?query")
+                            proof
+                            cnf))
        (exit 2))
      #:unwind? #t
      #:unwind-for-type &cannot-decode-dpop-proof)))