merge 8.5

tcltk · Oct 31, 2024 · 6aab1a9 · 6aab1a9
2 parents 104340e + 353df02
commit 6aab1a9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/clock.test b/tests/clock.test
@@ -280,15 +280,15 @@ test clock-1.4 "clock format - bad flag" {*}{
     -result {1 {bad option "-oops": must be -format, -gmt, -locale, or -timezone} {CLOCK badOption -oops}}
 }
 
-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]
 }