Tcl Source Code

Check-in [241db3a03a]
Login

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

Overview
Comment:remove temporary page feed
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tip-450
Files: files | file ages | folders
SHA3-256: 241db3a03a915a2bbc540ff002ef40660d481e71c8f2b4847da3a31edff6abbf
User & Date: dkf 2019-06-15 11:13:18.872
Context
2019-06-15
12:06
merge core-8-branch check-in: cf6909fca7 user: dkf tags: tip-450
11:13
remove temporary page feed check-in: 241db3a03a user: dkf tags: tip-450
07:46
Make creating variables work correctly. check-in: 795b52feb7 user: dkf tags: tip-450
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/binary.test.
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927

test binary-78.1 {unicode (out of BMP) to byte-array conversion, bug-[bd94500678]} -body {
    # just test for BO-segfault (high surrogate w/o advance source pointer for out of BMP char if TCL_UTF_MAX <= 4):
    binary encode hex \U0001f415
    binary scan \U0001f415 a* v; set v
    set str {}
} -result {}

test binary-79.1 {binary set} {
    list [set x abc] [binary set x @1c 66] [set x]
} {abc {} aBc}
test binary-79.2 {binary set} -returnCodes error -body {
    binary set
} -result {wrong # args: should be "binary set varName formatString ?arg ...?"}
test binary-79.3 {binary set} -returnCodes error -body {







|







2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927

test binary-78.1 {unicode (out of BMP) to byte-array conversion, bug-[bd94500678]} -body {
    # just test for BO-segfault (high surrogate w/o advance source pointer for out of BMP char if TCL_UTF_MAX <= 4):
    binary encode hex \U0001f415
    binary scan \U0001f415 a* v; set v
    set str {}
} -result {}

test binary-79.1 {binary set} {
    list [set x abc] [binary set x @1c 66] [set x]
} {abc {} aBc}
test binary-79.2 {binary set} -returnCodes error -body {
    binary set
} -result {wrong # args: should be "binary set varName formatString ?arg ...?"}
test binary-79.3 {binary set} -returnCodes error -body {