Change "clock format -format %x -locale current" output on msgcat locale change [4a0c163d24]

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/clock.test b/tests/clock.test
index 2abeab9..4f69ed3 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -36931,6 +36931,19 @@ test clock-67.2 {Bug d19a30db57} -body {
     # error, not segfault
     tcl::clock::GetJulianDayFromEraYearMonthDay {} 2361222
 } -returnCodes error -match glob -result *
+
+test clock-67.3 {Change %x output on global locale change [Bug 4a0c163d24]} -setup {
+    package require msgcat
+    set current [msgcat::mclocale]
+} -body {
+    msgcat::mclocale de_de
+    set res [clock format 1 -locale current -format %x]
+    msgcat::mclocale en_uk
+    lappend res [clock format 1 -locale current -format %x]
+} -cleanup {
+    msgcat::mclocale $current
+} -result {01.01.1970 01/01/1970}
+
 test clock-67.3 {Bug d19a30db57} -body {
     # error, not segfault
     tcl::clock::GetJulianDayFromEraYearWeekDay {} 2361222