diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-08-10 18:57:53 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-08-10 18:57:53 (GMT) |
| commit | 65f3d0f56b15027c05f27fe112dde1a6e22b03bb (patch) | |
| tree | 2d9c3fd7f2d1e71ed3f663e2aafd1482370ba2b9 | |
| parent | 18c102aa7055571d742e867b44e765ac3ed0213c (diff) | |
| parent | 6c78bf0adcb250437f1bb8dd19f13b7c2aa83848 (diff) | |
| download | tcl-65f3d0f56b15027c05f27fe112dde1a6e22b03bb.zip tcl-65f3d0f56b15027c05f27fe112dde1a6e22b03bb.tar.gz tcl-65f3d0f56b15027c05f27fe112dde1a6e22b03bb.tar.bz2 | |
Repair breakage in recent refactoring of env.test.
| -rw-r--r-- | tests/env.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/env.test b/tests/env.test index 8434943..59d5391 100644 --- a/tests/env.test +++ b/tests/env.test @@ -53,7 +53,7 @@ proc envprep {} { foreach name [array names env] { # Keep some environment variables that support operation of the tcltest # package. - if {[string toupper $name] ni $keep} { + if {[string toupper $name] ni [string toupper $keep]} { unset env($name) } } @@ -98,11 +98,11 @@ proc cleanup1 {} { } variable keep { - TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH - SYSTEMDRIVE SYSTEMROOT DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH + 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 - SECURITYSESSIONID LANG WINDIR TERM - CONNOMPROGRAMFILES PROGRAMFILES COMMONPROGRAMW6432 PROGRAMW6432 + __CF_USER_TEXT_ENCODING SECURITYSESSIONID LANG WINDIR TERM + CommonProgramFiles ProgramFiles CommonProgramW6432 ProgramW6432 } variable printenvScript [makeFile [string map [list @keep@ [list $keep]] { |