diff options
author | Mark H Weaver <mhw@netris.org> | 2018-10-20 23:30:15 -0400 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-05-23 17:13:07 +0200 |
commit | 8361d59d1ce04811642d6f9858b99be9c9fc7023 (patch) | |
tree | 3302716cc77bcff5e789baf864d5f6f974c46f50 | |
parent | db78033cc1a3c540f00f20d0e59df5c2cd1452bd (diff) | |
download | guile-8361d59d1ce04811642d6f9858b99be9c9fc7023.tar.gz |
SRFI-19: Add a few more tests.
This is a followup to commit a58c7abd72648f77e4ede5f62a2c4e7969bb7f95.
* test-suite/tests/srfi-19.test: Add tests for large positive years.
-rw-r--r-- | test-suite/tests/srfi-19.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test index ffaf9db43..0f1c33352 100644 --- a/test-suite/tests/srfi-19.test +++ b/test-suite/tests/srfi-19.test @@ -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") |