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

1 files changed, 15 insertions, 14 deletions

diff --git a/tests/client-manifest-fraudulent.scm b/tests/client-manifest-fraudulent.scm
index a1bfe20..548f6c1 100644
--- a/tests/client-manifest-fraudulent.scm
+++ b/tests/client-manifest-fraudulent.scm
@@ -17,6 +17,7 @@
 (use-modules (webid-oidc client-manifest)
              (webid-oidc cache)
              (webid-oidc testing)
+             ((webid-oidc parameters) #:prefix p:)
              (webid-oidc errors)
              (web uri)
              (srfi srfi-19)
@@ -58,17 +59,17 @@
      (unless (equal? headers headers-to-expect)
        (exit 2))
      (values what-to-respond what-to-respond-body))
-   (define cache-http-get
-     (with-cache
-      #:http-get respond))
-   (with-exception-handler
-       (lambda (error)
-         (unless (inconsistent-client-manifest? error)
-           (exit 3)))
-     (lambda ()
-       (get-client-manifest
-        (string->uri "https://fraudulent-app.example.com/id#app")
-        #:http-get cache-http-get)
-       (exit 4))
-     #:unwind? #t
-     #:unwind-for-type &inconsistent-client-manifest)))
+   (parameterize ((p:anonymous-http-request respond))
+     (use-cache
+      (lambda ()
+        (with-exception-handler
+            (lambda (error)
+              (unless (inconsistent-client-manifest? error)
+                (exit 3)))
+          (lambda ()
+            (parameterize ((p:current-date 0))
+              (get-client-manifest
+               (string->uri "https://fraudulent-app.example.com/id#app")))
+            (exit 4))
+          #:unwind? #t
+          #:unwind-for-type &inconsistent-client-manifest))))))