diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 13:28:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 13:28:46 (GMT) |
| commit | fed7903c6c96af171b9e490278380c744925e166 (patch) | |
| tree | 168d0ce3e10d8d699c9a8ea8921b192c85b3bb93 | |
| parent | d7ec31013a808f22ead867f83d5d8ddad36d7826 (diff) | |
| download | tcl-fed7903c6c96af171b9e490278380c744925e166.zip tcl-fed7903c6c96af171b9e490278380c744925e166.tar.gz tcl-fed7903c6c96af171b9e490278380c744925e166.tar.bz2 | |
Revise clock-6.10c? testcases
| -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} { |