From c047428bcb434fa7796ebe29234e4181528e5291 Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Thu, 8 Jul 1999 03:35:18 +0000
Subject: Improved test to handle empty env array - (will raise error)

---
 tests/env.test | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/env.test b/tests/env.test
index 23e04a6..6cf4ea7 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.7 1999/07/01 17:36:17 jenn Exp $
+# RCS: @(#) $Id: env.test,v 1.8 1999/07/08 03:35:18 rjohnson Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -173,6 +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
-- 
cgit v0.12