fixed overflow of year (resp. julianday), closes ticket [16e4fc3096]; test cases adjusted.sebres_8_6_clock_speedup_cr1

1 files changed, 13 insertions, 6 deletions

diff --git a/tests/clock.test b/tests/clock.test
index acc637c..c2955a5 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -37247,12 +37247,19 @@ test clock-61.2 {overflow of a wide integer on output} {*}{
     -result {integer value too large to represent}
     -returnCodes error
 }
-test clock-61.3 {near-miss overflow of a wide integer on output} {
-    clock format 0x7fffffffffffffff -format %s -gmt true
-} [expr 0x7fffffffffffffff]
-test clock-61.4 {near-miss overflow of a wide integer on output} {
-    clock format -0x8000000000000000 -format %s -gmt true
-} [expr -0x8000000000000000]
+test clock-61.3 {near-miss overflow of a wide integer on output, very large datetime (upper range)} {
+    clock format 0x00F0000000000000 -format "%s %Y %EE" -gmt true
+} [list [expr 0x00F0000000000000] 2140702833 C.E.]
+test clock-61.4 {near-miss overflow of a wide integer on output, very small datetime (lower range)} {
+    clock format -0x00F0000000000000 -format "%s %Y %EE" -gmt true
+} [list [expr -0x00F0000000000000] 2140654939 B.C.E.]
+
+test clock-61.5 {overflow of possible date-time (upper range)} -body {
+    clock format 0x00F0000000000001 -gmt true
+} -returnCodes error -result {integer value too large to represent}
+test clock-61.6 {overflow of possible date-time (lower range)} -body {
+    clock format -0x00F0000000000001 -gmt true
+} -returnCodes error -result {integer value too large to represent}
 
 test clock-62.1 {Bug 1902423} {*}{
     -setup {::tcl::clock::ClearCaches}