diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-24 20:15:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-24 20:15:24 (GMT) |
| commit | 7e99b4ae118f949a902c308f5350a6b72be05f96 (patch) | |
| tree | 2c443c5d33ebd6fede988c3c57e3ac2d0dbd766d /tests/stringObj.test | |
| parent | 089be89dd5b219a8d5156723b99478293c835f9a (diff) | |
| parent | 0634c8ab5b34dd74bb49e8ae4c9ee0062063064e (diff) | |
| download | tcl-7e99b4ae118f949a902c308f5350a6b72be05f96.zip tcl-7e99b4ae118f949a902c308f5350a6b72be05f96.tar.gz tcl-7e99b4ae118f949a902c308f5350a6b72be05f96.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/stringObj.test')
| -rw-r--r-- | tests/stringObj.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index 18c89bb..e5820fc 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -23,7 +23,7 @@ catch [list package require -exact tcl::test [info patchlevel]] testConstraint testobj [llength [info commands testobj]] testConstraint testbytestring [llength [info commands testbytestring]] testConstraint testdstring [llength [info commands testdstring]] -testConstraint fullutf [expr {[string length \U010000] == 1}] +testConstraint utf32 [expr {[string length \U010000] == 1}] test stringObj-1.1 {string type registration} testobj { set t [testobj types] @@ -454,19 +454,19 @@ test stringObj-15.4 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself 1 3 } foo -test stringObj-15.5 {Tcl_Append*ToObj: self appends} {testobj fullutf} { +test stringObj-15.5 {Tcl_Append*ToObj: self appends} {testobj utf32} { teststringobj set 1 foo teststringobj appendself2 1 0 } foofoo -test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj fullutf} { +test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj utf32} { teststringobj set 1 foo teststringobj appendself2 1 1 } foooo -test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj fullutf} { +test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj utf32} { teststringobj set 1 foo teststringobj appendself2 1 2 } fooo -test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj fullutf} { +test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj utf32} { teststringobj set 1 foo teststringobj appendself2 1 3 } foo |