From e76f68caee5f66d49fd7ebff19a31854f93c9037 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Tue, 26 Aug 2003 00:26:36 +0000 Subject: [PATCH] (date-week-number): Add tests. --- test-suite/tests/srfi-19.test | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test index 75eb25637..cb5ebe03b 100644 --- a/test-suite/tests/srfi-19.test +++ b/test-suite/tests/srfi-19.test @@ -150,7 +150,15 @@ incomplete numerical tower implementation.)" (time2 (make-time time-monotonic 385907 998360432)) (diff (time-difference time2 time1))) (test-time-arithmetic add-duration time1 diff time2) - (test-time-arithmetic subtract-duration time2 diff time1))) + (test-time-arithmetic subtract-duration time2 diff time1)) + + (with-test-prefix "date-week-number" + (pass-if "1Jan84" + (= 0 (date-week-number (make-date 0 0 0 0 1 1 1984 0) 0))) + (pass-if "7Jan84" + (= 0 (date-week-number (make-date 0 0 0 0 7 1 1984 0) 0))) + (pass-if "8Jan84" + (= 1 (date-week-number (make-date 0 0 0 0 8 1 1984 0) 0))))) ;; Local Variables: ;; eval: (put 'with-tz 'scheme-indent-function 1)