summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-10-05 08:03:35 (GMT)
committerhobbs <hobbs>2005-10-05 08:03:35 (GMT)
commit44e8c0a01c0a4104585a07493094db8366e7ccc8 (patch)
tree5bde422719d3a328094434e639f02b3dc73a6223 /tests
parenta7c1a3d607d3f3a9645ac43c6de183e49693111a (diff)
downloadtcl-44e8c0a01c0a4104585a07493094db8366e7ccc8.zip
tcl-44e8c0a01c0a4104585a07493094db8366e7ccc8.tar.gz
tcl-44e8c0a01c0a4104585a07493094db8366e7ccc8.tar.bz2
* tests/env.test (env-6.1):
* win/tclWinPort.h: define USE_PUTENV_FOR_UNSET 1 * generic/tclEnv.c (TclSetEnv, TclUnsetEnv): add USE_PUTENV_FOR_UNSET to existing USE_PUTENV define to account for various systems that have putenv(), but can't unset env vars with it. Note difference between Windows and Linux for actually unsetting the env var (use of '='). Correct the resizing of the environ array. We assume that we are in full ownership, but that's not correct.[Bug 979640]
Diffstat (limited to 'tests')
-rw-r--r--tests/env.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/env.test b/tests/env.test
index 24dc2e3..c2bad61 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.21 2005/05/24 04:44:08 das Exp $
+# RCS: @(#) $Id: env.test,v 1.22 2005/10/05 08:03:35 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -232,6 +232,13 @@ test env-5.5 {corner cases - cannot have null entries on Windows} {win} {
catch {set env()}
} {1}
+test env-6.1 {corner cases - add lots of env variables} {} {
+ set size [array size env]
+ for {set i 0} {$i < 100} {incr i} {
+ set env(BOGUS$i) $i
+ }
+ expr {[array size env] - $size}
+} 100
# Restore the environment variables at the end of the test.