Tcl Source Code

Check-in [1f318a23a1]
Login

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

Overview
Comment:Fix env-5.1 test-case on Cygwin (and probably other platforms which don't have iso8859-1 as system-encoding)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1f318a23a1fc33ccd074d4c6bb71bad9e07f6343
User & Date: jan.nijtmans 2013-11-20 12:58:35
Context
2013-11-20
14:40
Starting with Windows 8 DSK, GetVersionExA is deprecated check-in: bd84c74e43 user: jan.nijtmans tags: trunk
12:58
Fix env-5.1 test-case on Cygwin (and probably other platforms which don't have iso8859-1 as system-e... check-in: 1f318a23a1 user: jan.nijtmans tags: trunk
11:34
... and don't break env-5.3 and env-5.5 test-cases. check-in: f6c1c6b491 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/env.test.

214
215
216
217
218
219
220
221
222

223
224
225
226
227
228
229
test env-4.5 {unsetting international environment variables} -setup {
    encoding system iso8859-1
} -body {
    set env(\ub6) \ua7
    unset env(\ua7)
    getenv
} -constraints {exec} -cleanup {
    encoding system $sysenc
    unset env(\ub6)

} -result {\u00b6=\u00a7}

test env-5.0 {corner cases - set a value, it should exist} -body {
    set env(temp) a
    set env(temp)
} -cleanup {
    unset env(temp)







<

>







214
215
216
217
218
219
220

221
222
223
224
225
226
227
228
229
test env-4.5 {unsetting international environment variables} -setup {
    encoding system iso8859-1
} -body {
    set env(\ub6) \ua7
    unset env(\ua7)
    getenv
} -constraints {exec} -cleanup {

    unset env(\ub6)
    encoding system $sysenc
} -result {\u00b6=\u00a7}

test env-5.0 {corner cases - set a value, it should exist} -body {
    set env(temp) a
    set env(temp)
} -cleanup {
    unset env(temp)