diff options
| -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]} { |