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/resource-server.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'tests/resource-server.scm')
-rw-r--r-- | tests/resource-server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/resource-server.scm b/tests/resource-server.scm index 89df999..767088d 100644 --- a/tests/resource-server.scm +++ b/tests/resource-server.scm @@ -92,10 +92,10 @@ DPoP: ~a\r\n\r\n" (define rq-body "") (define authenticator (make-authenticator - #:server-uri server-uri - #:http-get http-get)) + #:server-uri server-uri)) (define parsed - (parameterize ((p:current-date 20)) + (parameterize ((p:current-date 20) + (p:anonymous-http-request http-get)) (authenticator rq rq-body))) (unless (uri? parsed) (exit 2)) |