summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-19 05:24:22 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-19 05:24:22 (GMT)
commita374ad83cefcf100f139968fd2f38021f43d87e3 (patch)
treee4c6ea91a9469207213e31a463449615a110bf4c
parentcc539d2683c0e33f8b55a8b886fb36ddf6ca7577 (diff)
downloadtcl-a374ad83cefcf100f139968fd2f38021f43d87e3.zip
tcl-a374ad83cefcf100f139968fd2f38021f43d87e3.tar.gz
tcl-a374ad83cefcf100f139968fd2f38021f43d87e3.tar.bz2
revised latest registry test commit
-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]