diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 09:25:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 09:25:41 (GMT) |
| commit | 4837653d64debe20eb2ef71dca9813510502168f (patch) | |
| tree | 2c22b495e4e0a22e16888f01d1a4133220fcc7e5 /tests/stringObj.test | |
| parent | 53b781dbd0eef3e429b956fd113213991100d0f5 (diff) | |
| download | tcl-4837653d64debe20eb2ef71dca9813510502168f.zip tcl-4837653d64debe20eb2ef71dca9813510502168f.tar.gz tcl-4837653d64debe20eb2ef71dca9813510502168f.tar.bz2 | |
Disable tests (conditionally) which cannot run without the UTF16 compatibility layer (TIP #622)
Diffstat (limited to 'tests/stringObj.test')
| -rw-r--r-- | tests/stringObj.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/stringObj.test b/tests/stringObj.test index 437d8c2..c1633bf 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -473,27 +473,27 @@ test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj tip389 deprecated} teststringobj appendself2 1 3 } foo -test stringObj-16.0 {Tcl_GetRange: normal case} testobj { +test stringObj-16.0 {Tcl_GetRange: normal case} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 1 3 } bcd -test stringObj-16.1 {Tcl_GetRange: first > end} testobj { +test stringObj-16.1 {Tcl_GetRange: first > end} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 10 5 } {} -test stringObj-16.2 {Tcl_GetRange: last > end} testobj { +test stringObj-16.2 {Tcl_GetRange: last > end} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 3 13 } de -test stringObj-16.3 {Tcl_GetRange: first = -1} testobj { +test stringObj-16.3 {Tcl_GetRange: first = -1} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 -1 3 } abcd -test stringObj-16.4 {Tcl_GetRange: last = -1} testobj { +test stringObj-16.4 {Tcl_GetRange: last = -1} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 1 -1 } bcde -test stringObj-16.5 {Tcl_GetRange: fist = last = -1} testobj { +test stringObj-16.5 {Tcl_GetRange: fist = last = -1} {testobj deprecated} { teststringobj set 1 abcde teststringobj range 1 -1 -1 } abcde |