merge 8.7

tcltk · Oct 31, 2024 · a18a9d2 · a18a9d2
2 parents 5d6e53a + f8fc146
commit a18a9d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/clock.test b/tests/clock.test
@@ -351,15 +351,15 @@ test clock-1.4.1 "clock format - unexpected option for this sub-command" {
     list [catch {clock format 0 -base 0} msg] $msg $::errorCode
 } [subst {1 {bad option "-base": must be -format, -gmt, -locale, or -timezone} {CLOCK badOption -base}}]
 
-test clock-1.5 "clock format - bad timezone" -body {
+test clock-1.5 "clock format - bad timezone (not found)" -body {
     clock format 0 -format "%s" -timezone :NOWHERE
 } -returnCodes 1 -result {time zone ":NOWHERE" not found} -errorCode {CLOCK badTimeZone :NOWHERE}
 foreach tz [list {*}{
   ../UNSAFEPATH/NOWHERE UNSAFEPATH/../GMT //UNSAFEPATH/NOWHERE
   zipfs:/UNSAFEPATH/NOWHERE C:/UNSAFEPATH/NOWHERE
   } [list $::tcl::clock::DataDir/GMT]
 ] {
-test clock-1.5.1 "clock format - bad timezone" -body {
+test clock-1.5.1 "clock format - bad timezone (not valid - unsafe path)" -body {
     clock format 0 -format "%s" -timezone $tz
 } -returnCodes 1 -result "time zone \":$tz\" not valid" -errorCode [list CLOCK badTimeZone :$tz]
 }