diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 14:51:28 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-01 18:08:56 +0200 |
commit | bae1843f1a1d644fb3bd4f8c40b1dbb900aa3325 (patch) | |
tree | 00f590033af904a6a493e41bdebe9b3ddd73043b /tests/client-manifest-fraudulent.scm | |
parent | d8c2ca930673da858d63f2dea9526c259a2dd936 (diff) |
Use guile parameters
With parameters, the API does not need to care about the directory
where to load files and how to get the time.
Diffstat (limited to 'tests/client-manifest-fraudulent.scm')
-rw-r--r-- | tests/client-manifest-fraudulent.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tests/client-manifest-fraudulent.scm b/tests/client-manifest-fraudulent.scm index da77c27..b786140 100644 --- a/tests/client-manifest-fraudulent.scm +++ b/tests/client-manifest-fraudulent.scm @@ -30,9 +30,6 @@ (with-test-environment "client-manifest-fraudulent" (lambda () - (define the-current-time 0) - (define (current-time) - (make-time time-utc 0 the-current-time)) (define what-to-respond (build-response #:headers '((content-type text/turtle)))) (define what-to-respond-body @@ -63,7 +60,6 @@ (values what-to-respond what-to-respond-body)) (define cache-http-get (with-cache - #:current-time current-time #:http-get respond)) (with-exception-handler (lambda (error) |