diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 08:27:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 08:27:33 (GMT) |
| commit | fb24c82dba94b255cb76db1910ae73e3e683746b (patch) | |
| tree | 2314265dfafc03a95543f44f3f542fe7695804a0 /tests | |
| parent | 157b3f3e28c94b39c17a754b9f853e1688a90e21 (diff) | |
| parent | 0c1dd51a1481431e5ea33b1a451b99c939775ea8 (diff) | |
| download | tcl-fb24c82dba94b255cb76db1910ae73e3e683746b.zip tcl-fb24c82dba94b255cb76db1910ae73e3e683746b.tar.gz tcl-fb24c82dba94b255cb76db1910ae73e3e683746b.tar.bz2 | |
Merge 8.7
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} { |