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 /src/scm/webid-oidc/testing.scm | |
parent | 0d74f8c1ca9c1e9bf9a04b85f598ba7a175d1d86 (diff) |
Use anonymous-http-request from (webid-oidc parameters) everywhere
Diffstat (limited to 'src/scm/webid-oidc/testing.scm')
-rw-r--r-- | src/scm/webid-oidc/testing.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/testing.scm b/src/scm/webid-oidc/testing.scm index 06d0127..c26ab5e 100644 --- a/src/scm/webid-oidc/testing.scm +++ b/src/scm/webid-oidc/testing.scm @@ -28,7 +28,13 @@ (define-public (with-test-environment test-name f) (parameterize ((data-home (format #f "tests/~a.home/disfluid" test-name)) - (cache-home (format #f "tests/~a.cache/disfluid" test-name))) + (cache-home (format #f "tests/~a.cache/disfluid" test-name)) + (anonymous-http-request + (lambda _ + (error "cannot request the world-wide web from within a test"))) + (current-date + (lambda () + (error "cannot use the current date from within a test")))) (call-with-output-file* (format #f "~a/seed" (cache-home)) (lambda (port) |