diff options
| author | escoffon <escoffon> | 1998-09-30 20:52:00 (GMT) |
|---|---|---|
| committer | escoffon <escoffon> | 1998-09-30 20:52:00 (GMT) |
| commit | 06843a45602adb59486c6609bb3a2235cdb2b78a (patch) | |
| tree | 70a2bc3214045c1383fc273482f53a5fbf9e21f8 /tests/env.test | |
| parent | 88288113539ead25062587441af5e93a985d8de6 (diff) | |
| download | tcl-06843a45602adb59486c6609bb3a2235cdb2b78a.zip tcl-06843a45602adb59486c6609bb3a2235cdb2b78a.tar.gz tcl-06843a45602adb59486c6609bb3a2235cdb2b78a.tar.bz2 | |
Added tests/stack.test, to test recursion limits.
Added SHLIB_PATH to the list of special macros to ignore.
Diffstat (limited to 'tests/env.test')
| -rw-r--r-- | tests/env.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/env.test b/tests/env.test index 0a4df27..c66812b 100644 --- a/tests/env.test +++ b/tests/env.test @@ -10,7 +10,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.2 1998/09/14 18:40:08 stanton Exp $ +# RCS: @(#) $Id: env.test,v 1.3 1998/09/30 20:52:00 escoffon Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -67,7 +67,7 @@ puts $f { lrem names ComSpec lrem names "" } - foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH} { + foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { lrem names $name } foreach p $names { @@ -95,7 +95,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} { +foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { if {[info exists env2($name)]} { set env($name) $env2($name); } |