summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-03 09:29:18 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-03 09:29:18 (GMT)
commitd27e883b17a58409f62f0aee186b31d850df992d (patch)
tree9bb9081c4de2c61fb854a5be8219449a5973dba7 /tests
parent415a324f3cbb26121cb4836b48f68ba5b6b8cf56 (diff)
parente59a5820dfdb6c77acd3497b07b8236b51bd04d8 (diff)
downloadtcl-d27e883b17a58409f62f0aee186b31d850df992d.zip
tcl-d27e883b17a58409f62f0aee186b31d850df992d.tar.gz
tcl-d27e883b17a58409f62f0aee186b31d850df992d.tar.bz2
test case for bug-3598580: Tcl_ListObjReplace may release deleted elements too early
Diffstat (limited to 'tests')
-rw-r--r--tests/listObj.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/listObj.test b/tests/listObj.test
index 53017b1..9f9b41c 100644
--- a/tests/listObj.test
+++ b/tests/listObj.test
@@ -193,6 +193,10 @@ test listobj-10.1 {Bug [2971669]} {*}{
-result {{a b c d e} {} {a b c d e f}}
}
+test listobj-11.1 {bug 3598580} {
+ testobj bug3598580
+} 123
+
# cleanup
::tcltest::cleanupTests
return