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

1 files changed, 15 insertions, 16 deletions

diff --git a/tests/token-endpoint-issue.scm b/tests/token-endpoint-issue.scm
index 0815c30..8fdd1ad 100644
--- a/tests/token-endpoint-issue.scm
+++ b/tests/token-endpoint-issue.scm
@@ -40,7 +40,6 @@
    (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 authz
      (parameterize ((p:current-date 0))
        (issue <authorization-code>
@@ -50,7 +49,7 @@
    (define endpoint
      (make-token-endpoint
       (string->uri "https://token-endpoint-issue.scm/token")
-      issuer key validity))
+      issuer key))
    (receive (response response-body . _)
        ;; The code is fake!
        (let ((dpop
@@ -103,25 +102,25 @@
            (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
-                                (format (current-error-port) "Unknown URI: ~s\n" (uri->string uri))
-                                (exit 11))))))))
+                                     ((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
+                                      (format (current-error-port) "Unknown URI: ~s\n" (uri->string uri))
+                                      (exit 11))))))
+                    (decode <access-token> access-token-enc))))
              (unless access-token
                (exit 8))
              (let ((access-token-cnf/jkt (cnf/jkt access-token)))