summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-19 05:23:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-19 05:23:46 (GMT)
commitdd21b2af3a8ddd0cbcffc3949ed0f9f581042d01 (patch)
tree5cee42ac48a51d6852569997c52d2a0278c1c3c6
parentf97b7b2eece332b3cf9fac1c1e04ab0838e528b9 (diff)
downloadtcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.zip
tcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.tar.gz
tcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.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 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]