summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-08-18 20:59:20 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-08-18 20:59:20 (GMT)
commit53141db9967b22cf67fd4a345ee469f685093f16 (patch)
tree75f7ddb9d5363f23cf8ac328d02811c067a8e0ee /tests
parentfab56e2415bbbc5e2355f500b28d26c5e907ef29 (diff)
downloadtcl-53141db9967b22cf67fd4a345ee469f685093f16.zip
tcl-53141db9967b22cf67fd4a345ee469f685093f16.tar.gz
tcl-53141db9967b22cf67fd4a345ee469f685093f16.tar.bz2
unbreak Win build after TIP#173 and TIP#209 commit
Diffstat (limited to 'tests')
-rw-r--r--tests/clock.test23
1 files changed, 21 insertions, 2 deletions
diff --git a/tests/clock.test b/tests/clock.test
index bba7feb..5736dfc 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: clock.test,v 1.35 2004/08/18 19:59:07 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.36 2004/08/18 20:59:34 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -19,7 +19,26 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
}
if { $::tcl_platform(platform) eq {windows} } {
- package require registry
+ if { [catch { package require registry 1.1 }] } {
+
+ # HIDEOUS KLUDGE: [package require registry 1.1] has failed.
+ # This failure likely means that we're running in Tcl's build
+ # directory instead of the install directory. We recover by
+ # trying to load tclreg*.dll directly.
+
+ if { [catch {
+ load [lindex \
+ [glob -directory \
+ [file join \
+ [pwd] \
+ [file dirname [info nameofexecutable]]] \
+ tclReg*.dll] \
+ 0] registry
+ }] } {
+ # Still no registry!
+ namespace eval ::tcl::clock [set NoRegistry {}]
+ }
+ }
}
package require msgcat 1.4