summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/msgcat.test16
-rw-r--r--tests/string.test3
2 files changed, 11 insertions, 8 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test
index d38152b..12030fb 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -1317,33 +1317,33 @@ if {[package vsatisfies [package provide msgcat] 1.7]} {
interp bgerror {} $bgerrorsaved
- # Tests msgcat-15.*: [mcutil]
+ # Tests msgcat-18.*: [mcutil]
- test msgcat-15.5 {mcutil - no argument} -body {
+ test msgcat-18.1 {mcutil - no argument} -body {
mcutil
} -returnCodes 1\
-result {wrong # args: should be "mcutil subcommand ?arg ...?"}
- test msgcat-15.6 {mcutil - wrong argument} -body {
+ test msgcat-18.2 {mcutil - wrong argument} -body {
mcutil junk
} -returnCodes 1\
-result {unknown subcommand "junk": must be getpreferences, or getsystemlocale}
- test msgcat-15.7 {mcutil - partial argument} -body {
+ test msgcat-18.3 {mcutil - partial argument} -body {
mcutil getsystem
} -returnCodes 1\
-result {unknown subcommand "getsystem": must be getpreferences, or getsystemlocale}
- test msgcat-15.8 {mcutil getpreferences - no argument} -body {
+ test msgcat-18.4 {mcutil getpreferences - no argument} -body {
mcutil getpreferences
} -returnCodes 1\
-result {wrong # args: should be "mcutil getpreferences locale"}
- test msgcat-15.9 {mcutil getpreferences - DE_de} -body {
+ test msgcat-18.5 {mcutil getpreferences - DE_de} -body {
mcutil getpreferences DE_de
} -result {de_de de {}}
- test msgcat-15.10 {mcutil getsystemlocale - wrong argument} -body {
+ test msgcat-18.6 {mcutil getsystemlocale - wrong argument} -body {
mcutil getsystemlocale DE_de
} -returnCodes 1\
-result {wrong # args: should be "mcutil getsystemlocale"}
@@ -1351,7 +1351,7 @@ if {[package vsatisfies [package provide msgcat] 1.7]} {
# The result is system dependent
# So just test if it runs
# The environment variable version was test with test 0.x
- test msgcat-15.11 {mcutil getsystemlocale} -body {
+ test msgcat-18.7 {mcutil getsystemlocale} -body {
mcutil getsystemlocale
set ok ok
} -result {ok}
diff --git a/tests/string.test b/tests/string.test
index b591325..18404e7 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -487,6 +487,9 @@ test string-5.19.$noComp {string index, bytearray object out of bounds} {
test string-5.20.$noComp {string index, bytearray object out of bounds} {
run {string index [binary format I* {0x50515253 0x52}] 20}
} {}
+test string-5.21 {string index, surrogates, bug [11ae2be95dac9417]} fullutf {
+ list [string index a\U100000b 1] [string index a\U100000b 2] [string index a\U100000b 3]
+} [list \U100000 {} b]
proc largest_int {} {