diff options
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 |