Various CYGWIN-related fixes. In the win32 configure script, CYGWIN is still not enabled yet, but at least it is a step in the right direction.

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