Tcl Source Code

Artifact [256d834f79]
Login

Artifact 256d834f79f24aae4d88bf207fd97dcccdbbeb1d7709b20dd8be37d878d3b597:

Attachment "localtime-tests.diff" to ticket [e368ba6683] added by chrstphrchvz 2023-09-21 00:13:36.
diff --git tests/clock.test tests/clock.test
index 4b12d5cb9e..3e1e1bb48c 100644
--- tests/clock.test
+++ tests/clock.test
@@ -36960,6 +36960,12 @@ test clock-61.3 {near-miss overflow of a wide integer on output} {
 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.5 {localtime for time value with year > INT_MAX + 1900} -match regexp -returnCodes error -body {
+    clock format 0x7fffffffffffffff -format %s -timezone :localtime
+} -result {^(?:number too large to represent as a Posix time|localtime failed \(clock value may be too large/small to represent\))$}
+test clock-61.6 {localtime for time value with year < INT_MIN + 1900} -match regexp -returnCodes error -body {
+    clock format -0x8000000000000000 -format %s -timezone :localtime
+} -result {^(?:number too large to represent as a Posix time|localtime failed \(clock value may be too large/small to represent\))$}
 
 test clock-62.1 {Bug 1902423} {*}{
     -setup {::tcl::clock::ClearCaches}