[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: SRFI-19: Add a few more tests.
From: |
Mark H. Weaver |
Subject: |
[Guile-commits] 01/01: SRFI-19: Add a few more tests. |
Date: |
Sat, 20 Oct 2018 23:31:36 -0400 (EDT) |
mhw pushed a commit to branch stable-2.2
in repository guile.
commit bbe6daa769e183a41909e345412af73c6d2561ec
Author: Mark H Weaver <address@hidden>
Date: Sat Oct 20 23:30:15 2018 -0400
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.
---
test-suite/tests/srfi-19.test | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test
index ffaf9db..0f1c333 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")