Tcl Source Code

Check-in [84de05583b]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge core-8-6-branch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: 84de05583b0631640bcb0f697345f4743c74da0b26874f0d8a15e481ea7db1e4
User & Date: jan.nijtmans 2017-11-07 13:29:28
References
2017-11-07
17:43 New ticket [35a1bb1873] Test Failure - socket-14.0.0 + socket-14.2 on Macos. artifact: 0bdf4d48af user: hypnotoad
17:40 New ticket [7f2928e3a9] Test Failure - macOSXFCmd-2.7 + macOSXFCmd-4.1 - On MacOS. artifact: ce86fb9777 user: hypnotoad
17:37 New ticket [538ba1e615] Test Failure - exec-19.1 - On MacOS. artifact: 478ba649d6 user: hypnotoad
17:33 New ticket [58053c93b3] Test Failure - tcltest-8.4 - On MSYS builds of core-8-branch. artifact: 63e7a86ccb user: hypnotoad
17:30 New ticket [93da2e42b9] Test Failure - iortrans-11.1 + iortrans-11.2 - On MSYS builds of core-8-branch. artifact: 2d4da9ed78 user: hypnotoad
17:27 New ticket [e7d3094475] Test Failure - io-60.1 - On MSYS builds of core-8-branch. artifact: 8f6e5e211f user: hypnotoad
17:24 New ticket [75ae1eca5a] Test Failure - fCmd-9.4.a - On MSYS builds of core-8-branch. artifact: a77b348d46 user: hypnotoad
17:08 New ticket [52f7abe82f] Test Failure - cmdAH-20.7.1 + cmdAH-24.14.1 + cmdAH-28.13.1 + cmdAH-29.6.1 - On MSYS builds of core-8-branch. artifact: 6091190dbd user: hypnotoad
17:03 New ticket [ab951a7503] Test Failure - chan-io-60.1 - On MSYS builds of core-8-branch. artifact: a6b9f227bb user: hypnotoad
Context
2017-11-08
02:25
Modify TclCreateProc to handle arbitrary argument names, not just ASCII. check-in: 70d5898e80 user: dgp tags: core-8-branch
2017-11-07
16:46
Pulling changes from core-8-branch check-in: 54d3ee03e9 user: tne tags: core_zip_vfs
16:31
merge 8.7 check-in: 82237d44ae user: jan.nijtmans tags: z_modifier
15:11
merge 8.7 check-in: 22cae0454a user: dgp tags: tip-462
14:28
merge 8.7 check-in: aa5f10d8cf user: dgp tags: no-wideint
13:30
merge core-8-branch check-in: 63ac24063a user: jan.nijtmans tags: trunk
13:29
merge core-8-6-branch check-in: 84de05583b user: jan.nijtmans tags: core-8-branch
13:19
Don't use Unicode character \udead in test-cases, because it is an invalid Unicode code-point (lower... check-in: 48f9304b4a user: jan.nijtmans tags: core-8-6-branch
2017-11-06
14:46
Fix version number of Windows Help file (not sure if it's actually used, but better safe than sorry) check-in: 8fcf451885 user: jan.nijtmans tags: core-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/string.test.

1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
} edcba
test string-24.4 {string reverse command - unshared string} {
    set x abc
    set y de
    string reverse $x$y
} edcba
test string-24.5 {string reverse command - shared unicode string} {
    set x abcde\udead
    string reverse $x
} \udeadedcba
test string-24.6 {string reverse command - unshared string} {
    set x abc
    set y de\udead
    string reverse $x$y
} \udeadedcba
test string-24.7 {string reverse command - simple case} {
    string reverse a
} a
test string-24.8 {string reverse command - simple case} {
    string reverse \udead
} \udead
test string-24.9 {string reverse command - simple case} {
    string reverse {}
} {}
test string-24.10 {string reverse command - corner case} {
    set x \ubeef\udead
    string reverse $x
} \udead\ubeef
test string-24.11 {string reverse command - corner case} {
    set x \ubeef
    set y \udead
    string reverse $x$y
} \udead\ubeef
test string-24.12 {string reverse command - corner case} {
    set x \ubeef
    set y \udead
    string is ascii [string reverse $x$y]
} 0
test string-24.13 {string reverse command - pure Unicode string} {
    string reverse [string range \ubeef\udead\ubeef\udead\ubeef\udead 1 5]
} \udead\ubeef\udead\ubeef\udead
test string-24.14 {string reverse command - pure bytearray} {
    binary scan [string reverse [binary format H* 010203]] H* x
    set x
} 030201
test string-24.15 {string reverse command - pure bytearray} {
    binary scan [tcl::string::reverse [binary format H* 010203]] H* x
    set x






|

|


|

|




|
|




|

|


|

|


|



|
|







1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
} edcba
test string-24.4 {string reverse command - unshared string} {
    set x abc
    set y de
    string reverse $x$y
} edcba
test string-24.5 {string reverse command - shared unicode string} {
    set x abcde\ud0ad
    string reverse $x
} \ud0adedcba
test string-24.6 {string reverse command - unshared string} {
    set x abc
    set y de\ud0ad
    string reverse $x$y
} \ud0adedcba
test string-24.7 {string reverse command - simple case} {
    string reverse a
} a
test string-24.8 {string reverse command - simple case} {
    string reverse \ud0ad
} \ud0ad
test string-24.9 {string reverse command - simple case} {
    string reverse {}
} {}
test string-24.10 {string reverse command - corner case} {
    set x \ubeef\ud0ad
    string reverse $x
} \ud0ad\ubeef
test string-24.11 {string reverse command - corner case} {
    set x \ubeef
    set y \ud0ad
    string reverse $x$y
} \ud0ad\ubeef
test string-24.12 {string reverse command - corner case} {
    set x \ubeef
    set y \ud0ad
    string is ascii [string reverse $x$y]
} 0
test string-24.13 {string reverse command - pure Unicode string} {
    string reverse [string range \ubeef\ud0ad\ubeef\ud0ad\ubeef\ud0ad 1 5]
} \ud0ad\ubeef\ud0ad\ubeef\ud0ad
test string-24.14 {string reverse command - pure bytearray} {
    binary scan [string reverse [binary format H* 010203]] H* x
    set x
} 030201
test string-24.15 {string reverse command - pure bytearray} {
    binary scan [tcl::string::reverse [binary format H* 010203]] H* x
    set x

Changes to tests/utf.test.

64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
    string length [testbytestring "\xE2\xA2"]
} {2}
test utf-2.7 {Tcl_UtfToUniChar: lead (3-byte) followed by 2 trail} testbytestring {
    string length [testbytestring "\xE4\xb9\x8e"]
} {1}
test utf-2.8 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body {
    string length [testbytestring "\xF0\x90\x80\x80"]
} -result {1}
test utf-2.9 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body {
    string length [testbytestring "\xF4\x8F\xBF\xBF"]
} -result {1}
test utf-2.10 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail, underflow} testbytestring {
    string length [testbytestring "\xF0\x8F\xBF\xBF"]
} {4}
test utf-2.11 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail, overflow} testbytestring {
    string length [testbytestring "\xF4\x90\x80\x80"]
} {4}
test utf-2.12 {Tcl_UtfToUniChar: longer UTF sequences not supported} testbytestring {






|


|







64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
    string length [testbytestring "\xE2\xA2"]
} {2}
test utf-2.7 {Tcl_UtfToUniChar: lead (3-byte) followed by 2 trail} testbytestring {
    string length [testbytestring "\xE4\xb9\x8e"]
} {1}
test utf-2.8 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body {
    string length [testbytestring "\xF0\x90\x80\x80"]
} -result {2}
test utf-2.9 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail} -constraints {fullutf testbytestring} -body {
    string length [testbytestring "\xF4\x8F\xBF\xBF"]
} -result {2}
test utf-2.10 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail, underflow} testbytestring {
    string length [testbytestring "\xF0\x8F\xBF\xBF"]
} {4}
test utf-2.11 {Tcl_UtfToUniChar: lead (4-byte) followed by 3 trail, overflow} testbytestring {
    string length [testbytestring "\xF4\x90\x80\x80"]
} {4}
test utf-2.12 {Tcl_UtfToUniChar: longer UTF sequences not supported} testbytestring {