diff options
Diffstat (limited to 'tests')
| -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 |