summaryrefslogtreecommitdiffstats
path: root/tests/env.test
diff options
context:
space:
mode:
authordas <das>2005-05-24 04:44:02 (GMT)
committerdas <das>2005-05-24 04:44:02 (GMT)
commitbb17f9d11c315a654f2e7b46df81202e61e18a50 (patch)
tree1f645ce40beb9571638b405a6efcbebb3d3d57fb /tests/env.test
parenteb48751a1d339e4429e572bb0032b6f5b115c891 (diff)
downloadtcl-bb17f9d11c315a654f2e7b46df81202e61e18a50.zip
tcl-bb17f9d11c315a654f2e7b46df81202e61e18a50.tar.gz
tcl-bb17f9d11c315a654f2e7b46df81202e61e18a50.tar.bz2
* tests/env.test: added DYLD_FRAMEWORK_PATH to the list of env vars
that need to be handled specially.
Diffstat (limited to 'tests/env.test')
-rw-r--r--tests/env.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/env.test b/tests/env.test
index 08c0ec1..24dc2e3 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.20 2004/08/26 17:37:12 das Exp $
+# RCS: @(#) $Id: env.test,v 1.21 2005/05/24 04:44:08 das Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -76,7 +76,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 __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 } {
lrem names $name
}
foreach p $names {
@@ -106,7 +106,7 @@ foreach name [array names env] {
# 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} {
+foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH} {
if {[info exists env2($name)]} {
set env($name) $env2($name);
}