Tcl Source Code

Check-in [4456d66c47]
Login

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

Overview
Comment:oops
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:4456d66c4722675e40999e1275c36d7cb263925ce95431ac38c3d880779536d2
User & Date: dgp 2017-10-27 12:57:45
Context
2017-10-30
03:01
merge 8.6 check-in: 2ce0a4a90e user: dgp tags: trunk
02:16
merge trunk: check-in: 891a615296 user: dgp tags: tip-278
2017-10-27
15:20
merge trunk check-in: 0608bd6778 user: dgp tags: novem
13:12
merge trunk check-in: 58759b9397 user: dgp tags: tip-445
13:12
merge trunk check-in: bb2a028c26 user: dgp tags: tip-345
13:07
merge trunk check-in: 51fa9fffa1 user: dgp tags: tip-114
12:57
oops check-in: 4456d66c47 user: dgp tags: trunk
12:57
oops check-in: 58b2048198 user: dgp tags: core-8-6-branch
12:51
Update tests that were still written on the outdated premise that Tcl's encoding subsystem had to in... check-in: 3f35692159 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/encoding.test.

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
    encoding dirs [list [pwd]]
    set x [encoding convertto shiftjis \u4e4e]	;# old one found
    encoding system iso8859-1
    llength shiftjis		;# Shimmer away any cache of Tcl_Encoding
    lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
} -cleanup {
    encoding system iso8859-1
    encoding system identity
    encoding dirs $path
    encoding system $system
} -result "\u008c\u00c1 1 {unknown encoding \"shiftjis\"}"

test encoding-3.1 {Tcl_GetEncodingName, NULL} -setup {
    set old [encoding system]
} -body {







<







76
77
78
79
80
81
82

83
84
85
86
87
88
89
    encoding dirs [list [pwd]]
    set x [encoding convertto shiftjis \u4e4e]	;# old one found
    encoding system iso8859-1
    llength shiftjis		;# Shimmer away any cache of Tcl_Encoding
    lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
} -cleanup {
    encoding system iso8859-1

    encoding dirs $path
    encoding system $system
} -result "\u008c\u00c1 1 {unknown encoding \"shiftjis\"}"

test encoding-3.1 {Tcl_GetEncodingName, NULL} -setup {
    set old [encoding system]
} -body {