summaryrefslogtreecommitdiffstats
path: root/tests/env.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/env.test')
-rw-r--r--tests/env.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/env.test b/tests/env.test
index 7d7e5fa..f5669d7 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.31 2009/05/07 10:34:42 dkf Exp $
+# RCS: @(#) $Id: env.test,v 1.32 2009/12/21 23:25:40 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -78,19 +78,19 @@ set printenvScript [makeFile {
proc manglechar c {
return [format {\u%04x} [scan $c %c]]
}
-
+
set names [lsort [array names env]]
if {$tcl_platform(platform) eq "windows"} {
lrem names HOME
lrem names COMSPEC
lrem names ComSpec
lrem names ""
- }
+ }
foreach name {
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
- __CF_USER_TEXT_ENCODING SECURITYSESSIONID LANG
+ __CF_USER_TEXT_ENCODING SECURITYSESSIONID LANG WINDIR TERM
} {
lrem names $name
}
@@ -120,7 +120,7 @@ foreach name [array names env] {
TCL_LIBRARY PATH LD_LIBRARY_PATH LIBPATH DISPLAY SHLIB_PATH
SYSTEMDRIVE SYSTEMROOT DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH
DYLD_NEW_LOCAL_SHARED_REGIONS DYLD_NO_FIX_PREBINDING
- SECURITYSESSIONID LANG
+ SECURITYSESSIONID LANG WINDIR TERM
}} {
unset env($name)
}
@@ -241,7 +241,7 @@ test env-5.1 {corner cases - remove one elem at a time} -setup {
array set env $x
} -result {0}
test env-5.2 {corner cases - unset the env array} -setup {
- interp create i
+ interp create i
} -body {
# Unsetting a variable in an interp detaches the C-level traces from the
# Tcl "env" variable.
@@ -254,7 +254,7 @@ test env-5.2 {corner cases - unset the env array} -setup {
interp delete i
} -result {0}
test env-5.3 {corner cases: unset the env in master should unset child} -setup {
- interp create i
+ interp create i
} -body {
# Variables deleted in a master interp should be deleted in child interp
# too.
@@ -266,7 +266,7 @@ test env-5.3 {corner cases: unset the env in master should unset child} -setup {
interp delete i
} -result {a 1}
test env-5.4 {corner cases - unset the env array} -setup {
- interp create i
+ interp create i
} -body {
# The info exists command should be in synch with the env array.
# Know Bug: 1737