summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-03-30 17:47:08 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-03-30 17:47:08 (GMT)
commitf92b558829c3d72d1ec0edd0e41477c9357cf8c8 (patch)
treec6772d718863ab5f2fcd7ed6a98641fec120511b /tests
parent3af212fe560067545be57a91ec8cd1065ec77eff (diff)
downloadtcl-f92b558829c3d72d1ec0edd0e41477c9357cf8c8.zip
tcl-f92b558829c3d72d1ec0edd0e41477c9357cf8c8.tar.gz
tcl-f92b558829c3d72d1ec0edd0e41477c9357cf8c8.tar.bz2
* generic/tclStringObj.c: Added protections from invalid memory
* generic/tclTestObj.c: accesses when we append (some part of) * tests/stringObj.test: a Tcl_Obj to itself. Added the appendself and appendself2 subcommands to the [teststringobj] testing command and added tests to the test suite. [Bug 2603158]
Diffstat (limited to 'tests')
-rw-r--r--tests/stringObj.test35
1 files changed, 34 insertions, 1 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test
index 359e11a..942645e 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: stringObj.test,v 1.15.2.1 2009/03/21 02:53:18 dgp Exp $
+# RCS: @(#) $Id: stringObj.test,v 1.15.2.2 2009/03/30 17:47:09 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -439,6 +439,39 @@ test stringObj-14.1 {Tcl_SetObjLength on pure unicode object} {
teststringobj get 1
} {bar}
+test stringObj-15.1 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself 1 0
+} foofoo
+test stringObj-15.2 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself 1 1
+} foooo
+test stringObj-15.3 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself 1 2
+} fooo
+test stringObj-15.4 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself 1 3
+} foo
+test stringObj-15.5 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself2 1 0
+} foofoo
+test stringObj-15.6 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself2 1 1
+} foooo
+test stringObj-15.7 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself2 1 2
+} fooo
+test stringObj-15.8 {Tcl_Append*ToObj: self appends} {
+ teststringobj set 1 foo
+ teststringobj appendself2 1 3
+} foo
+
testobj freeallvars
# cleanup