summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2007-03-09 02:26:05 (GMT)
committerKevin B Kenny <kennykb@acm.org>2007-03-09 02:26:05 (GMT)
commit8f5385f1339e582fc7a451a31f304c8e2e290130 (patch)
treee97cc9f43b51ab9b08cd72eff8da1b1e844e56b7
parent452ddd16c36251a8d907fa8d956b3bb97bc8d345 (diff)
downloadtcl-8f5385f1339e582fc7a451a31f304c8e2e290130.zip
tcl-8f5385f1339e582fc7a451a31f304c8e2e290130.tar.gz
tcl-8f5385f1339e582fc7a451a31f304c8e2e290130.tar.bz2
Modified test initialisation to use the
'loadTestedCommands' function of tcltest to bring in the correct path for the registry library.
-rw-r--r--ChangeLog6
-rw-r--r--tests/clock.test10
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 \