Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Repair breakage in recent refactoring of env.test |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-6-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
e5dded1cb70b1a00c9d409a6c38d7c09 |
| User & Date: | dgp 2018-08-08 20:48:06.494 |
Context
|
2018-08-17
| ||
| 22:15 | Minor fix to entier(): Allow it to convert to "wideInt" as well when range is appropriate check-in: d7d65c2ac3 user: jan.nijtmans tags: core-8-6-branch | |
|
2018-08-10
| ||
| 18:57 | Repair breakage in recent refactoring of env.test. check-in: 4e7f200965 user: pooryorick tags: core-8-branch | |
|
2018-08-08
| ||
| 20:48 | Repair breakage in recent refactoring of env.test check-in: e5dded1cb7 user: dgp tags: core-8-6-branch | |
| 06:45 | Fix harmless gcc warning check-in: eb3b963d72 user: jan.nijtmans tags: core-8-6-branch | |
Changes
Changes to tests/env.test.
| ︙ | ︙ | |||
49 50 51 52 53 54 55 |
variable keep
variable env2
set env2 [array get env]
foreach name [array names env] {
# Keep some environment variables that support operation of the tcltest
# package.
| | | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
variable keep
variable env2
set env2 [array get env]
foreach name [array names env] {
# Keep some environment variables that support operation of the tcltest
# package.
if {[string toupper $name] ni [string toupper $keep]} {
unset env($name)
}
}
return
}
|
| ︙ | ︙ | |||
94 95 96 97 98 99 100 |
proc cleanup1 {} {
encodingrestore
envrestore
}
variable keep {
| | | | | | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
proc cleanup1 {} {
encodingrestore
envrestore
}
variable keep {
TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH PURE_PROG_NAME DISPLAY
SHLIB_PATH SYSTEMDRIVE SYSTEMROOT DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH
DYLD_NEW_LOCAL_SHARED_REGIONS DYLD_NO_FIX_PREBINDING
__CF_USER_TEXT_ENCODING SECURITYSESSIONID LANG WINDIR TERM
CommonProgramFiles ProgramFiles CommonProgramW6432 ProgramW6432
}
variable printenvScript [makeFile [string map [list @keep@ [list $keep]] {
encoding system iso8859-1
proc lrem {listname name} {
upvar $listname list
set i [lsearch -nocase $list $name]
|
| ︙ | ︙ |