summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/makeTestCases.tcl6
1 files changed, 2 insertions, 4 deletions
diff --git a/tools/makeTestCases.tcl b/tools/makeTestCases.tcl
index 497205b..97f9a84 100755
--- a/tools/makeTestCases.tcl
+++ b/tools/makeTestCases.tcl
@@ -1,8 +1,9 @@
# TODO - When integrating this with the Core, path names will need to be
# swizzled here.
-package require newclock
+package require msgcat
set d [file dirname [file dirname [info script]]]
+puts "getting transition data from [file join $d library tzdata America Detroit]"
source [file join $d library/tzdata/America/Detroit]
namespace eval ::tcl::clock {
@@ -547,17 +548,14 @@ proc testcases5 { f2 } {
set fmt {%H:%M:%S %z %Z}
set i 0
- puts $f2 "::tcltest::testConstraint detroit 0"
puts $f2 "test clock-5.[incr i] {does Detroit exist} {"
puts $f2 " clock format 0 -format {} -timezone :America/Detroit"
- puts $f2 " ::tcltest::testConstraint detroit 1"
puts $f2 " concat"
puts $f2 "} {}"
puts $f2 "test clock-5.[incr i] {does Detroit have a Y2038 problem} detroit {"
puts $f2 " if { \[clock format 2158894800 -format %z -timezone :America/Detroit\] ne {-0400} } {"
puts $f2 " concat {y2038 problem}"
puts $f2 " } else {"
- puts $f2 " ::tcltest::testConstraint y2038 1"
puts $f2 " concat {ok}"
puts $f2 " }"
puts $f2 "} ok"