summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2015-10-23 08:08:09 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2015-10-23 08:08:09 (GMT)
commit4479e16df25d9fad8636372be8e5010eb70df2c9 (patch)
treee8dd0d7c2713550f9b426f7f5271094148ba8597 /tests
parent775b09cb001aae11f753654ae22365f295f56fe8 (diff)
downloadtcl-bug_4a0c163d24.zip
tcl-bug_4a0c163d24.tar.gz
tcl-bug_4a0c163d24.tar.bz2
New test for clock scan, test numbering correctedbug_4a0c163d24
Diffstat (limited to 'tests')
-rwxr-xr-x[-rw-r--r--]tests/clock.test25
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