New test for clock scan, test numbering corrected

1 files changed, 19 insertions, 6 deletions

diff --git a/tests/clock.test b/tests/clock.test
index 4f69ed3..d4f0bc9 100644..100755
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -36932,22 +36932,35 @@ test clock-67.2 {Bug d19a30db57} -body {
     tcl::clock::GetJulianDayFromEraYearMonthDay {} 2361222
 } -returnCodes error -match glob -result *
 
-test clock-67.3 {Change %x output on global locale change [Bug 4a0c163d24]} -setup {
+test clock-67.3 {Bug d19a30db57} -body {
+    # error, not segfault
+    tcl::clock::GetJulianDayFromEraYearWeekDay {} 2361222
+} -returnCodes error -match glob -result *
+
+test clock-67.4 {Change format %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]
+    set res [list [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
-} -returnCodes error -match glob -result *
+test clock-67.5 {Change scan %x output on global locale change [Bug 4a0c163d24]} -setup {
+    package require msgcat
+    set current [msgcat::mclocale]
+} -body {
+    msgcat::mclocale de_de
+    set res [clock scan "01.01.1970" -locale current -format %x]
+    msgcat::mclocale en_uk
+    # This will fail without the bug fix, as still de_de is active
+    expr {$res == [clock scan "01/01/1970" -locale current -format %x]}
+} -cleanup {
+    msgcat::mclocale $current
+} -result {1}
 
 # cleanup