diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-30 13:23:10 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-30 13:23:10 (GMT) |
commit | 94b624f11c01f23334b1ee3ef29f4c2e874b03c7 (patch) | |
tree | faeda38ceaea4495f0cb300585db741cc29551ea /tests | |
parent | 5a9014a650af70ba5c09763035dc589d05402700 (diff) | |
parent | 72998869a3be3534fec99499faabe2d1557d6bcb (diff) | |
download | tcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.zip tcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.tar.gz tcl-94b624f11c01f23334b1ee3ef29f4c2e874b03c7.tar.bz2 |
merge core-8-branch
Diffstat (limited to 'tests')
-rw-r--r-- | tests/cmdIL.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 70ac6bb..df59e6e 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -19,6 +19,7 @@ catch [list package require -exact Tcltest [info patchlevel]] # Used for constraining memory leak tests testConstraint memory [llength [info commands memory]] testConstraint testobj [llength [info commands testobj]] +testConstraint fullutf [expr {[format %c 0x010000] != "\ufffd"}] test cmdIL-1.1 {Tcl_LsortObjCmd procedure} -returnCodes error -body { lsort @@ -147,6 +148,18 @@ test cmdIL-1.36 {lsort -stride and -index: Bug 2918962} { {{b i g} 12345} {{d e m o} 34512} } } {{{b i g} 12345} {{d e m o} 34512} {{c o d e} 54321} {{b l a h} 94729}} +test cmdIL-1.37 {Tcl_LsortObjCmd procedure, Bug 8e1e31eac0fd6b6c} { + lsort -ascii [list \0 \x7f \x80 \uffff] +} [list \0 \x7f \x80 \uffff] +test cmdIL-1.38 {Tcl_LsortObjCmd procedure, Bug 8e1e31eac0fd6b6c} { + lsort -ascii -nocase [list \0 \x7f \x80 \uffff] +} [list \0 \x7f \x80 \uffff] +test cmdIL-1.39 {Tcl_LsortObjCmd procedure, Bug 8e1e31eac0fd6b6c} fullutf { + lsort -ascii [list \0 \x7f \x80 \U01ffff \uffff] +} [list \0 \x7f \x80 \uffff \U01ffff] +test cmdIL-1.40 {Tcl_LsortObjCmd procedure, Bug 8e1e31eac0fd6b6c} fullutf { + lsort -ascii -nocase [list \0 \x7f \x80 \U01ffff \uffff] +} [list \0 \x7f \x80 \uffff \U01ffff] # Can't think of any good tests for the MergeSort and MergeLists procedures, # except a bunch of random lists to sort. |