diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 08:23:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 08:23:07 (GMT) |
| commit | 0c1dd51a1481431e5ea33b1a451b99c939775ea8 (patch) | |
| tree | afe841c55f524f7acee10fc3e92b8308bf7a9cde /tests | |
| parent | faf33c3ece8ecb7a33845cb5c3b4edfd725b9ef3 (diff) | |
| download | tcl-0c1dd51a1481431e5ea33b1a451b99c939775ea8.zip tcl-0c1dd51a1481431e5ea33b1a451b99c939775ea8.tar.gz tcl-0c1dd51a1481431e5ea33b1a451b99c939775ea8.tar.bz2 | |
This typecast is wrong (and was already wrong). Correct it, and add testcase to prove it
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 7da50e9..203d0c6 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 utf16 -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} { |