summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/registry.test14
1 files changed, 4 insertions, 10 deletions
diff --git a/tests/registry.test b/tests/registry.test
index 9e12849..1b134b6 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.12.2.1 2003/03/19 01:19:53 kennykb Exp $
+# RCS: @(#) $Id: registry.test,v 1.12.2.2 2003/03/19 05:24:22 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]