diff options
Diffstat (limited to 'tests/client-manifest.scm')
-rw-r--r-- | tests/client-manifest.scm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/tests/client-manifest.scm b/tests/client-manifest.scm index fb40901..2812ede 100644 --- a/tests/client-manifest.scm +++ b/tests/client-manifest.scm @@ -52,12 +52,8 @@ (string->uri "https://app.example.com/id#app")) (exit 2)) (values what-to-respond what-to-respond-body)) - (define current-time 0) (define cache-http-get (with-cache - #:current-time - (lambda () - (make-time time-utc 0 current-time)) #:http-get respond)) (define mf (get-client-manifest @@ -85,7 +81,6 @@ (exit 6)) (set! what-to-respond response) (set! what-to-respond-body response-body) - (set! current-time 10) (let ((re-parsed (get-client-manifest (string->uri "https://app.example.com/id#app") #:http-get cache-http-get))) |