Check-in [4912c0913b]
Not logged in

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: 4912c0913bbe91497fb3eb7ab11967b35abdf674
User & Date: chw 2020-05-20 08:28:29
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"}}