Tcl Source Code

Check-in [0d794e7275]
Login

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

Overview
Comment:Added source test with utf-8 (without -encoding param), remove too many same single byte tests
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | bug-3466099
Files: files | file ages | folders
SHA1: 0d794e7275d0b042482df96d34bbdec734b773e3
User & Date: sebres 2012-03-08 09:43:39
Context
2012-03-08
09:43
Added source test with utf-8 (without -encoding param), remove too many same single byte tests Closed-Leaf check-in: 0d794e7275 user: sebres tags: bug-3466099
2012-03-07
22:09
put -checkbom encoding only when encoding is not set check-in: 4de05bbbf2 user: jan.nijtmans tags: bug-3466099
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/source.test.

116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
    close $out
    set y old-y
    source -encoding utf-8 $sourcefile
    return $y
} -cleanup {
    removeFile $sourcefile
} -result {new-y}
foreach {n e} {8 identity 9 cp1250 10 cp1251 11 cp1252 12 cp1253 13 cp1254 14 cp1255 15 cp1256 16 cp1257 17 cp1258} {
test source-2.$n [list $e with BOM] -setup {
    set sourcefile [makeFile {} source.file]
    set saveencoding [encoding system]
} -body {
    encoding system $e
    set out [open $sourcefile w]
    fconfigure $out -encoding utf-8







|







116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
    close $out
    set y old-y
    source -encoding utf-8 $sourcefile
    return $y
} -cleanup {
    removeFile $sourcefile
} -result {new-y}
foreach {n e} {8 utf-8 9 identity 10 cp1252} {
test source-2.$n [list $e with BOM] -setup {
    set sourcefile [makeFile {} source.file]
    set saveencoding [encoding system]
} -body {
    encoding system $e
    set out [open $sourcefile w]
    fconfigure $out -encoding utf-8