shithub: sl

Info  •  Files  •  Log  •  Branches

tests: string->time is always defined

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -367,9 +367,8 @@

 (assert (not (equal? (hash (iota 41))

                      (hash (iota 42)))))

-(if (top-level-bound? 'string->time)

-    (assert (let ((ts (time->string (time-now))))

-                (eqv? ts (time->string (string->time ts))))))

+(assert (let ((ts (time->string (time-now))))

+          (eqv? ts (time->string (string->time ts)))))

 (assert (equal? 0.0 (+ 0.0 0))) ; tests that + no longer does inexact->exact