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 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]