From b1a20a87442e79d2a1b990695b056bc86dd72024 Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Thu, 8 Jul 1999 19:44:43 +0000
Subject: Fixed bogus test for env.test

---
 tests/env.test | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/tests/env.test b/tests/env.test
index 6cf4ea7..44fc6aa 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.8 1999/07/08 03:35:18 rjohnson Exp $
+# RCS: @(#) $Id: env.test,v 1.9 1999/07/08 19:44:43 rjohnson Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -173,14 +173,9 @@ test env-4.5 {unsetting international environment variables} {execCommandExists}
 } "\ub6=\ua7"
 
 test env-5.0 {corner cases - set a value, it should exist} {} {
-    if {[llength [array names env]] == 0} {
-	error "env array unexpectedly empty"
-    }
-    set temp [lindex [array names env] end]
-    set x $env($temp)
-    set env($temp) a
-    set result [set env($temp)]
-    set env($temp) $x
+    set env(temp) a
+    set result [set env(temp)]
+    unset env(temp)
     set result
 } {a}
 test env-5.1 {corner cases - remove one elem at a time} {} {
-- 
cgit v0.12