diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 12:32:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 12:32:17 (GMT) |
commit | e0716f3a835d64a5e2b7cc722db53e7c20e2169c (patch) | |
tree | 6e95a6ad347a4c9e0c28962d8bc1f7ae07125355 /tests/stringObj.test | |
parent | ac4769c769196e5d84ab0a23286bec5e216f67cd (diff) | |
parent | cccb9994ce059b965d7537c824ddd63a839f8c21 (diff) | |
download | tcl-e0716f3a835d64a5e2b7cc722db53e7c20e2169c.zip tcl-e0716f3a835d64a5e2b7cc722db53e7c20e2169c.tar.gz tcl-e0716f3a835d64a5e2b7cc722db53e7c20e2169c.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/stringObj.test')
-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 c1633bf..14ba79d 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -497,6 +497,11 @@ test stringObj-16.5 {Tcl_GetRange: fist = last = -1} {testobj deprecated} { 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]} { testobj freeallvars |