diff options
author | dgp <dgp@users.sourceforge.net> | 2022-09-21 18:23:14 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2022-09-21 18:23:14 (GMT) |
commit | 159cb3d31d8b70d7ef29798372421c08c9274a85 (patch) | |
tree | 372344d279e40ebd58e1741c0c724c682872afda | |
parent | 0f53e9d9697ee1bf84f6fdba09ec752711484f85 (diff) | |
download | tcl-159cb3d31d8b70d7ef29798372421c08c9274a85.zip tcl-159cb3d31d8b70d7ef29798372421c08c9274a85.tar.gz tcl-159cb3d31d8b70d7ef29798372421c08c9274a85.tar.bz2 |
Another test related to TIP 623.
-rw-r--r-- | tests/stringObj.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index b799828..dce932b 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -505,6 +505,11 @@ test stringObj-16.5 {Tcl_GetRange: fist = last = -1} testobj { teststringobj set 1 abcde teststringobj range 1 -1 -1 } abcde +test stringObj-16.6 {Tcl_GetRange: old anomaly} testobj { + # Older implementations could return "cde" + teststringobj set 1 abcde + teststringobj range 1 2 0 +} {} if {[testConstraint testobj]} { |