diff options
author | dgp <dgp@users.sourceforge.net> | 2011-11-08 16:44:18 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-11-08 16:44:18 (GMT) |
commit | 7a8bc81a493652e506e46b7c149da63215b2ebd7 (patch) | |
tree | 5f6a1a5b59c0e5681d089fe3069826e15c6255ce /tests/stringObj.test | |
parent | db3170d4ab704dd0c39fe187fb91421f91a83cf6 (diff) | |
parent | 83ca2639b30b6a474588bf542e8d4a8f954f4bd7 (diff) | |
download | tcl-7a8bc81a493652e506e46b7c149da63215b2ebd7.zip tcl-7a8bc81a493652e506e46b7c149da63215b2ebd7.tar.gz tcl-7a8bc81a493652e506e46b7c149da63215b2ebd7.tar.bz2 |
missing constraints
Diffstat (limited to 'tests/stringObj.test')
-rw-r--r-- | tests/stringObj.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index 2f516ec..d93bb82 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -444,35 +444,35 @@ test stringObj-14.1 {Tcl_SetObjLength on pure unicode object} testobj { teststringobj get 1 } {bar} -test stringObj-15.1 {Tcl_Append*ToObj: self appends} { +test stringObj-15.1 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself 1 0 } foofoo -test stringObj-15.2 {Tcl_Append*ToObj: self appends} { +test stringObj-15.2 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself 1 1 } foooo -test stringObj-15.3 {Tcl_Append*ToObj: self appends} { +test stringObj-15.3 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself 1 2 } fooo -test stringObj-15.4 {Tcl_Append*ToObj: self appends} { +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} { +test stringObj-15.5 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself2 1 0 } foofoo -test stringObj-15.6 {Tcl_Append*ToObj: self appends} { +test stringObj-15.6 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself2 1 1 } foooo -test stringObj-15.7 {Tcl_Append*ToObj: self appends} { +test stringObj-15.7 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself2 1 2 } fooo -test stringObj-15.8 {Tcl_Append*ToObj: self appends} { +test stringObj-15.8 {Tcl_Append*ToObj: self appends} testobj { teststringobj set 1 foo teststringobj appendself2 1 3 } foo |