diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-03 09:22:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-03 09:22:04 (GMT) |
| commit | e59a5820dfdb6c77acd3497b07b8236b51bd04d8 (patch) | |
| tree | 99d1350d9b02e0dce0351536547cc0c340bde3b8 /tests | |
| parent | 3f4534b92ba967574dc4106bc346ccbbfed9d638 (diff) | |
| download | tcl-e59a5820dfdb6c77acd3497b07b8236b51bd04d8.zip tcl-e59a5820dfdb6c77acd3497b07b8236b51bd04d8.tar.gz tcl-e59a5820dfdb6c77acd3497b07b8236b51bd04d8.tar.bz2 | |
test case for bug-3598580: Tcl_ListObjReplace may release deleted elements too early
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listObj.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/listObj.test b/tests/listObj.test index aa319bb..390ee64 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -181,6 +181,10 @@ test listobj-9.1 {UpdateStringOfList} { string length [list foo\x00help] } 8 +test listobj-11.1 {bug 3598580} { + testobj bug3598580 +} 123 + # cleanup ::tcltest::cleanupTests return |