summaryrefslogtreecommitdiffstats
path: root/tests/env.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@noemail.net>2006-06-14 15:21:11 (GMT)
committerpatthoyts <patthoyts@noemail.net>2006-06-14 15:21:11 (GMT)
commit26def5e28a2449cd4807761ea7bc0c2a58e6e283 (patch)
treeb7f93c0f3fad3eccfb16e8fcd337ce453d85e1c7 /tests/env.test
parent93426f291c215a592a4fa06ce6e9d6dcce1d4227 (diff)
downloadtcl-26def5e28a2449cd4807761ea7bc0c2a58e6e283.zip
tcl-26def5e28a2449cd4807761ea7bc0c2a58e6e283.tar.gz
tcl-26def5e28a2449cd4807761ea7bc0c2a58e6e283.tar.bz2
Enable building Tcl with Microsoft's latest compiler offering
(VS2005). We have to handle a number of oddities as they have deprecated most of the standard C library and now generate manifest files to be linked into the binaries. SF bug #1424909 FossilOrigin-Name: f0865d186be22364b93769489cba19c7df78ef9f
Diffstat (limited to 'tests/env.test')
-rw-r--r--tests/env.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/env.test b/tests/env.test
index 7bfeb3c..7653b05 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: env.test,v 1.17.2.3 2005/10/05 08:03:18 hobbs Exp $
+# RCS: @(#) $Id: env.test,v 1.17.2.4 2006/06/14 15:21:14 patthoyts Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -75,7 +75,7 @@ set printenvScript [makeFile {
lrem names ComSpec
lrem names ""
}
- foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH PURE_PROG_NAME DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH __CF_USER_TEXT_ENCODING } {
+ foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH PURE_PROG_NAME DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH __CF_USER_TEXT_ENCODING SYSTEMDRIVE SYSTEMROOT} {
lrem names $name
}
foreach p $names {
@@ -98,14 +98,14 @@ proc getenv {} {
# Save the current environment variables at the start of the test.
foreach name [array names env] {
- set env2($name) $env($name)
+ set env2([string toupper $name]) $env($name)
unset env($name)
}
# Added the following lines so that child tcltest can actually find its
# library if the initial tcltest is run from a non-standard place.
# ('saved' env vars)
-foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH} {
+foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH SYSTEMDRIVE SYSTEMROOT} {
if {[info exists env2($name)]} {
set env($name) $env2($name);
}