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

1 files changed, 14 insertions, 15 deletions

diff --git a/tests/token-endpoint-refresh.scm b/tests/token-endpoint-refresh.scm
index f0174b8..90e2625 100644
--- a/tests/token-endpoint-refresh.scm
+++ b/tests/token-endpoint-refresh.scm
@@ -41,12 +41,11 @@
    (define subject (string->uri "https://token-endpoint-issue.scm/profile/card#me"))
    (define client (string->uri "https://token-endpoint-issue.scm/client/card#app"))
    (define issuer (string->uri "https://issuer.token-endpoint-issue.scm"))
-   (define validity 3600)
    (define refresh-code
      (issue-refresh-token subject client (jkt client-key)))
    (define endpoint (make-token-endpoint
                      (string->uri "https://token-endpoint-issue.scm/token")
-                     issuer key validity))
+                     issuer key))
    (receive (response response-body . _)
        ;; The refresh token is fake!
        (let ((dpop
@@ -98,24 +97,24 @@
            (unless refresh-token-enc
              (exit 7))
            (let ((access-token
-                  (parameterize ((p:current-date 20))
-                    (decode <access-token> access-token-enc
-                            #:http-request
-                            (lambda* (uri . args)
-                              (cond
-                               ((equal? uri (string->uri "https://issuer.token-endpoint-issue.scm/.well-known/openid-configuration"))
-                                (values (build-response #:headers '((content-type application/json)))
-                                        "{
+                  (parameterize ((p:current-date 20)
+                                 (p:anonymous-http-request
+                                  (lambda* (uri . args)
+                                    (cond
+                                     ((equal? uri (string->uri "https://issuer.token-endpoint-issue.scm/.well-known/openid-configuration"))
+                                      (values (build-response #:headers '((content-type application/json)))
+                                              "{
   \"jwks_uri\": \"https://token-endpoint-issue.scm/keys\",
   \"token_endpoint\": \"https://token-endpoint-issue.scm/token\",
   \"authorization_endpoint\": \"https://token-endpoint-issue.scm/authorize\",
   \"solid_oidc_supported\": \"https://solidproject.org/TR/solid-oidc\"
 }"))
-                               ((equal? uri (string->uri "https://token-endpoint-issue.scm/keys"))
-                                (values (build-response #:headers '((content-type application/json)))
-                                        (stubs:scm->json-string `((keys . ,(list->vector (list (key->jwk key))))))))
-                               (else
-                                (exit 8))))))))
+                                     ((equal? uri (string->uri "https://token-endpoint-issue.scm/keys"))
+                                      (values (build-response #:headers '((content-type application/json)))
+                                              (stubs:scm->json-string `((keys . ,(list->vector (list (key->jwk key))))))))
+                                     (else
+                                      (exit 8))))))
+                    (decode <access-token> access-token-enc))))
              (unless access-token
                (exit 9))
              (let ((access-token-cnf/jkt (cnf/jkt access-token)))