From dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 19 Mar 2003 05:23:46 +0000
Subject: revised latest registry test commit

---
 tests/registry.test | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/tests/registry.test b/tests/registry.test
index 7f6612e..a075162 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1997 by Sun Microsystems, Inc.  All rights reserved.
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
-# RCS: @(#) $Id: registry.test,v 1.13 2003/03/19 01:21:01 kennykb Exp $
+# RCS: @(#) $Id: registry.test,v 1.14 2003/03/19 05:23:46 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -29,15 +29,9 @@ if {$tcl_platform(platform) == "windows"} {
 }
 
 # determine the current locale
-if { [string compare {} [info commands testlocale]] } {
-    set old [testlocale all]
-    testConstraint english \
-	[string equal [testlocale all ""] "English_United States.1252"]
-    testlocale all $old
-    unset old
-} else {
-    testConstraint english false
-}
+testConstraint english [expr {[llength [info commands testlocale]]
+	&& [string equal [testlocale all ""] "English_United States.1252"]
+}]
 
 set hostname [info hostname]
 
-- 
cgit v0.12