diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-03-19 05:23:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-03-19 05:23:46 (GMT) |
| commit | dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01 (patch) | |
| tree | 5cee42ac48a51d6852569997c52d2a0278c1c3c6 /tests/registry.test | |
| parent | f97b7b2eece332b3cf9fac1c1e04ab0838e528b9 (diff) | |
| download | tcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.zip tcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.tar.gz tcl-dd21b2af3a8ddd0cbcffc3949ed0f9f581042d01.tar.bz2 | |
revised latest registry test commit
Diffstat (limited to 'tests/registry.test')
| -rw-r--r-- | tests/registry.test | 14 |
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] |