summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2004-08-26 17:37:41 (GMT)
committerdas <das>2004-08-26 17:37:41 (GMT)
commit9e7d1e52219a5f372c7a0dea6ef24110e03cee81 (patch)
tree39ef6d4963c9f5c3ee044d88be24018d742b1b14
parent7b42aece2ff4d125c9e687a18b8dc775e6cc4172 (diff)
downloadtcl-9e7d1e52219a5f372c7a0dea6ef24110e03cee81.zip
tcl-9e7d1e52219a5f372c7a0dea6ef24110e03cee81.tar.gz
tcl-9e7d1e52219a5f372c7a0dea6ef24110e03cee81.tar.bz2
* tests/env.test: macosx fixes.
-rw-r--r--ChangeLog4
-rw-r--r--tests/env.test6
2 files changed, 7 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 120f229..0b2a0ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-27 Daniel Steffen <das@users.sourceforge.net>
+
+ * tests/env.test: macosx fixes.
+
2004-08-19 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* generic/tclScan.c (Tcl_ScanObjCmd, ValidateFormat): Ensure that
diff --git a/tests/env.test b/tests/env.test
index 9cc5d1b..af23dfd 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 2002/10/03 13:34:32 dkf Exp $
+# RCS: @(#) $Id: env.test,v 1.17.2.1 2004/08/26 17:37:42 das 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 } {
+ foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH PURE_PROG_NAME DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH __CF_USER_TEXT_ENCODING } {
lrem names $name
}
foreach p $names {
@@ -105,7 +105,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} {
+foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH DYLD_LIBRARY_PATH} {
if {[info exists env2($name)]} {
set env($name) $env2($name);
}