diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2007-07-09 16:47:56 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2007-07-09 16:47:56 +0000 |
| commit | 0867f7baa84e27a1294a62a023829f319620ef70 (patch) | |
| tree | 07f00fcef6f531b00cb8ab74f5744bbb6c852c9d /test-suite/tests/srfi-19.test | |
| parent | d3075c52acac924e91b64c6f91759c757ad3b741 (diff) | |
| download | guile-0867f7baa84e27a1294a62a023829f319620ef70.tar.gz | |
Changes from arch/CVS synchronization
Diffstat (limited to 'test-suite/tests/srfi-19.test')
| -rw-r--r-- | test-suite/tests/srfi-19.test | 6 |
1 files changed, 6 insertions, 0 deletions
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" |