From 0867f7baa84e27a1294a62a023829f319620ef70 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 9 Jul 2007 16:47:56 +0000 Subject: Changes from arch/CVS synchronization --- test-suite/tests/srfi-19.test | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'test-suite/tests/srfi-19.test') diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test index dd6e608a9..a553ce4f8 100644 --- a/test-suite/tests/srfi-19.test +++ b/test-suite/tests/srfi-19.test @@ -141,6 +141,12 @@ incomplete numerical tower implementation.)" (test-dst time-monotonic->date date->time-monotonic) (test-dst julian-day->date date->julian-day) (test-dst modified-julian-day->date date->modified-julian-day) + + (pass-if "`date->julian-day' honors timezone" + (let ((now (current-date -14400))) + (time=? (date->time-utc (julian-day->date (date->julian-day now))) + (date->time-utc now)))) + (pass-if "string->date respects local DST if no time zone is read" (time=? (date->time-utc (with-tz "EST5EDT" -- cgit v1.2.1