summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-10-05 08:03:17 (GMT)
committerhobbs <hobbs>2005-10-05 08:03:17 (GMT)
commit86e4d8437abab92436107fb9afd4297403c19f9d (patch)
tree2c9ac383c7dd0f904ad8966baa0723174adbe774
parent244bc931a8bd5bd2daf06b45906027f9035a5943 (diff)
downloadtcl-86e4d8437abab92436107fb9afd4297403c19f9d.zip
tcl-86e4d8437abab92436107fb9afd4297403c19f9d.tar.gz
tcl-86e4d8437abab92436107fb9afd4297403c19f9d.tar.bz2
test to fix for 979640
-rw-r--r--ChangeLog1
-rw-r--r--tests/env.test21
2 files changed, 9 insertions, 13 deletions
diff --git a/ChangeLog b/ChangeLog
index b555297..5cc15b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
2005-10-05 Jeff Hobbs <jeffh@ActiveState.com>
+ * 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
diff --git a/tests/env.test b/tests/env.test
index b8f2def..7bfeb3c 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.2.2 2005/05/24 04:44:32 das Exp $
+# RCS: @(#) $Id: env.test,v 1.17.2.3 2005/10/05 08:03:18 hobbs Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -231,6 +231,13 @@ test env-5.5 {corner cases - cannot have null entries on Windows} {pcOnly} {
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.
@@ -245,15 +252,3 @@ foreach name [array names env2] {
removeFile $printenvScript
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-