From 8f5385f1339e582fc7a451a31f304c8e2e290130 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Fri, 9 Mar 2007 02:26:05 +0000 Subject: Modified test initialisation to use the 'loadTestedCommands' function of tcltest to bring in the correct path for the registry library. --- ChangeLog | 6 ++++-- tests/clock.test | 10 ++++++++-- 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 +2007-03-09 Kevin B. Kenny * 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 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 \ -- cgit v0.12