Modified test initialisation to use the

'loadTestedCommands' function of tcltest to bring in the
correct path for the registry library.

2 files changed, 12 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index d2f5ebc..4b4f189 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,11 @@
-2007-03-08  Kevin B. Kenny  <kennykb@acm.org>
+2007-03-09  Kevin B. Kenny  <kennykb@acm.org>
 
 	* library/clock.tcl (ReadZoneinfoFile): Added Y2038 compliance to
 	the code for version-2 'zoneinfo' files.  
 	* tests/clock.test (clock-56.3): Added a test case for Y2038 and
-	'zoneinfo'.
+	'zoneinfo'.  Modified test initialisation to use the
+	'loadTestedCommands' function of tcltest to bring in the
+	correct path for the registry library.
 	
 2007-03-08  Don Porter  <dgp@users.sourceforge.net>
 
diff --git a/tests/clock.test b/tests/clock.test
index 66508b1..f5f7d47 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.72 2007/03/09 01:09:05 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.73 2007/03/09 02:26:05 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -19,10 +19,16 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 }
 
 if {[testConstraint win]} {
-    if {[catch {package require registry 1.1}]} {
+    if {[catch {package require registry 1.1}] 
+	&& [catch {load {} Registry}]
+	&& [catch {
+	    ::tcltest::loadTestedCommands
+	    load $::reglib Registry
+	}]} {
 	namespace eval ::tcl::clock {variable NoRegistry {}}
     }
 }
+
 package require msgcat 1.4
 
 testConstraint detroit \