diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 13:11:21 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-22 18:08:47 +0200 |
commit | 555e59deba33284067298ce6130c379c75e3d2a3 (patch) | |
tree | c15c823913e917bc474f1cf163caf65a117ee9c3 /tests/provider-confirmation.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'tests/provider-confirmation.scm')
-rw-r--r-- | tests/provider-confirmation.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/provider-confirmation.scm b/tests/provider-confirmation.scm index fe9f4a2..e326ac8 100644 --- a/tests/provider-confirmation.scm +++ b/tests/provider-confirmation.scm @@ -16,6 +16,7 @@ (use-modules (webid-oidc provider-confirmation) (webid-oidc testing) + ((webid-oidc parameters) #:prefix p:) (web uri) (srfi srfi-19) (web response) @@ -42,9 +43,11 @@ (unless (equal? headers what-headers-to-expect) (exit 2)) (values what-to-respond what-to-respond-body)) - (define cnf (get-provider-confirmations - (string->uri "https://provider-confirmation.scm/id#webid") - #:http-get http-get)) + (define cnf + (parameterize + ((p:anonymous-http-request http-get)) + (get-provider-confirmations + (string->uri "https://provider-confirmation.scm/id#webid")))) (unless (eq? (length cnf) 2) (format (current-error-port) "~s\n" cnf) (exit 3)) |