diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 22:32:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 22:32:41 (GMT) |
| commit | 7204821dbfb025a3a755ebef4a3a13b459bf57ee (patch) | |
| tree | a0233f47011405ab93b7d13d1f8ae10cabc9e0a8 /tests | |
| parent | 92ea491e1df5a8c3467062724cc6e6accda787a8 (diff) | |
| parent | ceadda7eccad9e1d9ab05fc0f8c9fb17e7572381 (diff) | |
| download | tcl-7204821dbfb025a3a755ebef4a3a13b459bf57ee.zip tcl-7204821dbfb025a3a755ebef4a3a13b459bf57ee.tar.gz tcl-7204821dbfb025a3a755ebef4a3a13b459bf57ee.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/clock.test | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/tests/clock.test b/tests/clock.test index 7cb86a3..1db5af8 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -18532,27 +18532,25 @@ test clock-6.8 {input of seconds} { } 9223372036854775807 test clock-6.9 {input of seconds - overflow} { - list [catch {clock scan -9223372036854775809 -format %s -gmt true} result] $result $::errorCode + list [catch {clock scan -9223372036854775809 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""] } {1 {integer value too large to represent} {CLOCK dateTooLarge}} - test clock-6.10 {input of seconds - overflow} { - list [catch {clock scan 9223372036854775808 -format %s -gmt true} result] $result $::errorCode -} {1 {integer value too large to represent} {CLOCK dateTooLarge}} - -test clock-6.10a {input of seconds - overflow, bug [1f40aa83c5]} { - list [catch {clock scan 27670116110564327423 -format %s -gmt true} result] $result $::errorCode + list [catch {clock scan 9223372036854775808 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""] } {1 {integer value too large to represent} {CLOCK dateTooLarge}} -test clock-6.10b {input of seconds - overflow ??, bug [1f40aa83c5]} knownBug { +foreach sign {{} -} { + test clock-6.10a$sign {input of seconds - overflow, bug [1f40aa83c5]} { + list [catch {clock scan ${sign}27670116110564327423 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""] + } {1 {integer value too large to represent} {CLOCK dateTooLarge}} + test clock-6.10b$sign {input of seconds - overflow, bug [1f40aa83c5]} { + list [catch {clock scan ${sign}27670116110564327424 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""] + } {1 {integer value too large to represent} {CLOCK dateTooLarge}} +}; unset sign +test clock-6.10c {input of seconds - overflow ??, bug [1f40aa83c5]} knownBug { clock scan 27670116110564327423 -gmt true } 89170590268800 - -test clock-6.10c {input of seconds - overflow, bug [1f40aa83c5]} { - list [catch {clock scan 27670116110564327424 -format %s -gmt true} result] $result $::errorCode -} {1 {integer value too large to represent} {CLOCK dateTooLarge}} - test clock-6.10d {input of seconds - overflow ??, bug [1f40aa83c5]} knownBug { - clock scan 27670116110564327424 -gmt true + clock scan 27670116110564327424 -gmt true } -90247104115200 test clock-6.11 {input of seconds - two values} { |