diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-21 09:39:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-21 09:39:21 (GMT) |
| commit | c48019496edd522d6f8917829deddb83b108873b (patch) | |
| tree | 929477b8c250bfc546b72b7c194a901fb8916d13 | |
| parent | a3fdbe449b30bc201a5a109503ea13aa7504b4f3 (diff) | |
| parent | b77246e08bf5f354f35ac9a388296a3fcb5a2a95 (diff) | |
| download | tcl-c48019496edd522d6f8917829deddb83b108873b.zip tcl-c48019496edd522d6f8917829deddb83b108873b.tar.gz tcl-c48019496edd522d6f8917829deddb83b108873b.tar.bz2 | |
Merge trunk
| -rw-r--r-- | tests/stringObj.test | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index a1c0600..9c32dd6 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -23,8 +23,7 @@ catch [list package require -exact Tcltest [info patchlevel]] testConstraint testobj [llength [info commands testobj]] testConstraint testbytestring [llength [info commands testbytestring]] testConstraint testdstring [llength [info commands testdstring]] -testConstraint tip497 [expr {[string length \U010000] == 1}] -testConstraint nodep [info exists tcl_precision] +testConstraint fullutf [expr {[string length \U010000] == 1}] test stringObj-1.1 {string type registration} testobj { set t [testobj types] @@ -466,19 +465,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 tip497} { +test stringObj-15.5 {Tcl_Append*ToObj: self appends} {testobj fullutf} { teststringobj set 1 foo teststringobj appendself2 1 0 } foofoo -test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj tip497} { +test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj fullutf} { teststringobj set 1 foo teststringobj appendself2 1 1 } foooo -test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj tip497} { +test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj fullutf} { teststringobj set 1 foo teststringobj appendself2 1 2 } fooo -test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj tip497} { +test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj fullutf} { teststringobj set 1 foo teststringobj appendself2 1 3 } foo |