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/crud.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'tests/crud.scm')
-rw-r--r-- | tests/crud.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/tests/crud.scm b/tests/crud.scm index 40ec7b1..fa33138 100644 --- a/tests/crud.scm +++ b/tests/crud.scm @@ -22,6 +22,7 @@ (webid-oidc server resource path) (webid-oidc errors) (webid-oidc testing) + ((webid-oidc parameters) #:prefix p:) (webid-oidc fetch) (webid-oidc rdf-index) (web http) @@ -158,12 +159,12 @@ (when (cdr etag) (exit 15)) (with-index - (fetch "https://example.com/" - #:http-get - (lambda (uri . rest) - (values - (build-response #:headers `((content-type . ,content-type))) - root))) + (parameterize ((p:anonymous-http-request + (lambda (uri . rest) + (values + (build-response #:headers `((content-type . ,content-type))) + root)))) + (fetch "https://example.com/")) (lambda (rdf-match) (when (null? (rdf-match "https://example.com/" "http://www.w3.org/ns/ldp#contains" @@ -199,12 +200,12 @@ (when (cdr etag) (exit 22)) (with-index - (fetch "https://example.com/.acl" - #:http-get - (lambda (uri . rest) - (values - (build-response #:headers `((content-type . ,content-type))) - /.acl))) + (parameterize ((p:anonymous-http-request + (lambda (uri . rest) + (values + (build-response #:headers `((content-type . ,content-type))) + /.acl)))) + (fetch "https://example.com/.acl")) (lambda (rdf-match) (when (null? (rdf-match #f "http://www.w3.org/1999/02/22-rdf-syntax-ns#type" |