diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-11 14:45:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-11 14:45:16 (GMT) |
commit | 02131d1f1b33fdc93e9fe01c30a3e0c19f5adf3f (patch) | |
tree | e82b8149301e4a566b9b828f430789c9443fc626 /tests | |
parent | 08666ed47430a0a9dba38a8acf60aeee0d052b6f (diff) | |
parent | 0b39585b19e94e663d35f0618c748abfb37de5cd (diff) | |
download | tcl-02131d1f1b33fdc93e9fe01c30a3e0c19f5adf3f.zip tcl-02131d1f1b33fdc93e9fe01c30a3e0c19f5adf3f.tar.gz tcl-02131d1f1b33fdc93e9fe01c30a3e0c19f5adf3f.tar.bz2 |
Merge 9.0. Update documentation
Diffstat (limited to 'tests')
-rw-r--r-- | tests/string.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index d5a4815..70b0e0f 100644 --- a/tests/string.test +++ b/tests/string.test @@ -510,6 +510,9 @@ test string-5.20.$noComp {string index, bytearray object out of bounds} -body { test string-5.21.$noComp {string index, surrogates, bug [11ae2be95dac9417]} -constraints fullutf -body { run {list [string index a\U100000b 1] [string index a\U100000b 2] [string index a\U100000b 3]} } -result [list \U100000 b {}] +test string-5.22.$noComp {string index} -constraints testbytestring -body { + run {list [scan [string index [testbytestring \xFF] 0] %c var] $var} +} -result {1 255} test string-6.1.$noComp {string is, not enough args} { |