diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-14 06:18:27 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-14 06:18:27 (GMT) |
commit | dc3f8c16635601a97aa29fed7a1173010008a659 (patch) | |
tree | 75a3bb2560b5bfa1e520c2b8e53e41912dc7eb11 /tests/listObj.test | |
parent | 002a3c5b5f588d316c435c2b11bd489d62fac58d (diff) | |
download | tcl-dc3f8c16635601a97aa29fed7a1173010008a659.zip tcl-dc3f8c16635601a97aa29fed7a1173010008a659.tar.gz tcl-dc3f8c16635601a97aa29fed7a1173010008a659.tar.bz2 |
Two more Tcl_ListObjReplace test-cases
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 0b64635..93395cf 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -205,6 +205,16 @@ test listobj-10.3 {Tcl_ListObjReplace with negative count value} testobj { testlistobj replace 1 1 -1 f testlistobj get 1 } {a f b c d e} +test listobj-10.4 {Tcl_ListObjReplace with UINT_MAX-1 count value} testobj { + testlistobj set 1 a b c d e + testlistobj replace 1 1 0xFFFFFFFE f + testlistobj get 1 +} {a f} +test listobj-10.5 {Tcl_ListObjReplace with SIZE_MAX-1 count value} testobj { + testlistobj set 1 a b c d e + testlistobj replace 1 1 -2 f + testlistobj get 1 +} {a f} test listobj-11.1 {Bug 3598580: Tcl_ListObjReplace refcount management} testobj { testobj bug3598580 |