diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-13 20:36:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-13 20:36:33 (GMT) |
commit | 8a5330377a4d514f7165b65577034d293aa5d520 (patch) | |
tree | 151f35a6c17a92152e558100a558ce2750bbc6ff /tests/listObj.test | |
parent | 310451d63efb820df4ad0aa96ca1944b594d1c32 (diff) | |
parent | a4c2d0ce66a5dd65133deb0519f71fa5aaade99d (diff) | |
download | tcl-8a5330377a4d514f7165b65577034d293aa5d520.zip tcl-8a5330377a4d514f7165b65577034d293aa5d520.tar.gz tcl-8a5330377a4d514f7165b65577034d293aa5d520.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/listObj.test')
-rw-r--r-- | tests/listObj.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/listObj.test b/tests/listObj.test index f17f085..0b64635 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -195,6 +195,16 @@ test listobj-10.1 {Bug [2971669]} {*}{ } -result {{a b c d e} {} {a b c d e f}} } +test listobj-10.2 {Tcl_ListObjReplace with negative start value} testobj { + testlistobj set 1 a b c d e + testlistobj replace 1 -1 2 f + testlistobj get 1 +} {f c d e} +test listobj-10.3 {Tcl_ListObjReplace with negative count value} testobj { + testlistobj set 1 a b c d e + testlistobj replace 1 1 -1 f + testlistobj get 1 +} {a f b c d e} test listobj-11.1 {Bug 3598580: Tcl_ListObjReplace refcount management} testobj { testobj bug3598580 |