Use anonymous-http-request from (webid-oidc parameters) everywhere

1 files changed, 7 insertions, 9 deletions

diff --git a/tests/jwks-get.scm b/tests/jwks-get.scm
index 8f23492..ffc0bbb 100644
--- a/tests/jwks-get.scm
+++ b/tests/jwks-get.scm
@@ -16,6 +16,7 @@
 
 (use-modules (webid-oidc jwk)
              (webid-oidc testing)
+             ((webid-oidc parameters) #:prefix p:)
              (webid-oidc cache)
              (web uri)
              (srfi srfi-19)
@@ -58,15 +59,12 @@
 }
 ")
          (exit 3)))
-   (define cache-http-get
-     (with-cache
-      #:http-get respond))
-   (define* (cache-http-request uri #:key (headers '()) (method 'GET))
-     (unless (eq? method 'GET)
-       (exit 4))
-     (cache-http-get uri #:headers headers))
-   (define jwks (get-jwks "https://example.com/keys"
-                          #:http-request cache-http-request))
+   (define jwks
+     (parameterize ((p:anonymous-http-request respond)
+                    (p:current-date 0)) ;; the cache requires it
+       (use-cache
+        (lambda ()
+          (get-jwks "https://example.com/keys")))))
    (define the-keys (keys jwks))
    (unless (eq? (length the-keys) 2)
      (exit 5))