mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

SRFI-19: Add a few more tests.

Browse source 
This is a followup to commit a58c7abd72.

* test-suite/tests/srfi-19.test: Add tests for large positive years.
This commit is contained in:
Mark H Weaver 2018-10-20 23:30:15 -04:00 • committed by Andy Wingo
parent db78033cc1
commit 8361d59d1c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/srfi-19.test
View file

@ -263,6 +263,10 @@ incomplete numerical tower implementation.)"
(date->string (julian-day->date 1730000 0) "~4"))
(pass-if-equal "2000-01-01T00:00:00Z" "2000-01-01T00:00:00Z"
(date->string (julian-day->date 4903089/2 0) "~4"))
(pass-if-equal "9999-12-31T12:00:00Z" "9999-12-31T12:00:00Z"
(date->string (julian-day->date 5373484 0) "~4"))
(pass-if-equal "+10000-01-01T12:00:00Z" "+10000-01-01T12:00:00Z"
(date->string (julian-day->date 5373485 0) "~4"))
(pass-if-equal "negative julian days"
'((-2000000 . "-10188-02-01T14:24:00Z wk=04 dow=6 doy=032")
(-20000 . "-4767-02-20T14:24:00Z wk=08 dow=0 doy=051")