From 86e4d8437abab92436107fb9afd4297403c19f9d Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 5 Oct 2005 08:03:17 +0000
Subject: test to fix for 979640

---
 ChangeLog      |  1 +
 tests/env.test | 21 ++++++++-------------
 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
-
-
-
-
-
-
-
-
-
-
-
-
-- 
cgit v0.12