diff options
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/tests/clock.test b/tests/clock.test index 0202fc7..0d7d23e 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -if {[lsearch [namespace children] ::tcltest] == -1} { +if {"::tcltest" ni [namespace children]} { package require tcltest 2 namespace import -force ::tcltest::* } @@ -238,7 +238,6 @@ namespace eval ::testClock { DaylightStart \x00\x00\x03\x00\x02\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00]] } - proc ::testClock::registry { cmd path key } { variable reg if { $cmd ne {get} } { @@ -21058,7 +21057,6 @@ test clock-10.8 {parse ccyyddd} { clock scan {2001 365} -format {%Y %j} -locale en_US_roman -gmt 1 } 1009756800 - test clock-10.9 {seconds take precedence over ccyyddd} { list [clock scan {0 2000001} -format {%s %Y%j} -gmt true] \ [clock scan {2000001 0} -format {%Y%j %s} -gmt true] @@ -35850,7 +35848,6 @@ test clock-35.3 {clock seconds tests} { expr "$end > $start" } {1} - test clock-36.1 {clock scan next monthname} { clock format [clock scan "next june" -base [clock scan "june 1, 2000"]] \ -format %m.%Y @@ -35925,7 +35922,6 @@ test clock-38.2 {make sure TZ is not cached after unset} \ } \ -result 1 - test clock-39.1 {regression - synonym timezones} { clock format 0 -format {%H:%M:%S} -timezone :US/Eastern } {19:00:00} @@ -36704,12 +36700,12 @@ test clock-58.1 {clock l10n - Japanese localisation} {*}{ -setup { proc backslashify { string } { - set retval {} - foreach char [split $string {}] { + set retval "" + foreach char [split $string ""] { scan $char %c ccode - if { $ccode >= 0x0020 && $ccode < 0x007f - && $char ne "\{" && $char ne "\}" && $char ne "\[" - && $char ne "\]" && $char ne "\\" && $char ne "\$" } { + if { ($ccode >= 0x0020) && + ($ccode < 0x007f) && + ($char ni "\{ \} \[ \] \\ \$") } { append retval $char } else { append retval \\u [format %04x $ccode] @@ -36860,10 +36856,10 @@ test clock-61.2 {overflow of a wide integer on output} {*}{ } test clock-61.3 {near-miss overflow of a wide integer on output} { clock format 0x7fffffffffffffff -format %s -gmt true -} [expr 0x7fffffffffffffff] +} [expr {0x7fffffffffffffff}] test clock-61.4 {near-miss overflow of a wide integer on output} { clock format -0x8000000000000000 -format %s -gmt true -} [expr -0x8000000000000000] +} [expr {-0x8000000000000000}] test clock-62.1 {Bug 1902423} {*}{ -setup {::tcl::clock::ClearCaches} |