Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | more string trim tests |
|---|---|
| Timelines: | family | ancestors | descendants | both | wtf-8-experiment |
| Files: | files | file ages | folders |
| SHA1: |
4912c0913bbe91497fb3eb7ab11967b3 |
| User & Date: | chw 2020-05-20 08:28:29.883 |
Context
|
2020-05-20
| ||
| 12:32 | merge with trunk check-in: 34c5b6ec22 user: chw tags: wtf-8-experiment | |
| 08:28 | more string trim tests check-in: 4912c0913b user: chw tags: wtf-8-experiment | |
|
2020-05-18
| ||
| 16:44 | fix string map for beyond BMP chars check-in: 92fafa5ea8 user: chw tags: wtf-8-experiment | |
Changes
Changes to jni/tcl/tests/string.test.
| ︙ | ︙ | |||
1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 |
} 6
test string-21.13 {string wordend, unicode} {
string wordend "xyz\u2045de fg" 0
} 3
test string-21.14 {string wordend, unicode} {
string wordend "\uC700\uC700 abc" 8
} 6
test string-22.1 {string wordstart} {
list [catch {string word a} msg] $msg
} {1 {unknown or ambiguous subcommand "word": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}}
test string-22.2 {string wordstart} {
list [catch {string wordstart a} msg] $msg
} {1 {wrong # args: should be "string wordstart string index"}}
| > > > > > > > > > | 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 |
} 6
test string-21.13 {string wordend, unicode} {
string wordend "xyz\u2045de fg" 0
} 3
test string-21.14 {string wordend, unicode} {
string wordend "\uC700\uC700 abc" 8
} 6
test string-21.15 {string trim, unicode} {
string trim "\U1F602Hello world!\U1F602" \U1F602
} "Hello world!"
test string-21.16 {string trimleft, unicode} {
string trimleft "\U1F602Hello world!\U1F602" \U1F602
} "Hello world!\U1F602"
test string-21.17 {string trimright, unicode} {
string trimright "\U1F602Hello world!\U1F602" \U1F602
} "\U1F602Hello world!"
test string-22.1 {string wordstart} {
list [catch {string word a} msg] $msg
} {1 {unknown or ambiguous subcommand "word": must be bytelength, cat, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart}}
test string-22.2 {string wordstart} {
list [catch {string wordstart a} msg] $msg
} {1 {wrong # args: should be "string wordstart string index"}}
|
| ︙ | ︙ |