Posted to tcl by kbk at Wed Mar 07 23:46:35 GMT 2007view raw
- test clock-56.1 {use of zoneinfo, version 1} \
- -setup {
- clock format [clock seconds]
- set tzdir [makeDirectory zoneinfo]
- set tzdir2 [makeDirectory Test $tzdir]
- set tzfile [makeFile {} PhoenixOne $tzdir2]
- set f [open $tzfile w]
- fconfigure $f -translation binary
- puts -nonewline $f [binary format c* {
- 0x54 0x5a 0x69 0x66 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
- 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x03
- 0x00 0x00 0x00 0x03 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x0a
- 0x00 0x00 0x00 0x03 0x00 0x00 0x00 0x0c 0x9e 0xa6 0x3a 0x90
- 0x9f 0xbb 0x07 0x80 0xa0 0x86 0x1c 0x90 0xa1 0x9a 0xe9 0x80
- 0xcb 0x89 0x0c 0x90 0xcf 0x17 0xdf 0x1c 0xcf 0x8f 0xe5 0xac
- 0xd0 0x81 0x1a 0x1c 0xfa 0xf8 0x75 0x10 0xfb 0xe8 0x58 0x00
- 0x00 0x01 0x00 0x01 0x02 0x01 0x02 0x01 0x00 0x01 0xff 0xff
- 0xab 0xa0 0x01 0x00 0xff 0xff 0x9d 0x90 0x00 0x04 0xff 0xff
- 0xab 0xa0 0x01 0x08 0x4d 0x44 0x54 0x00 0x4d 0x53 0x54 0x00
- 0x4d 0x57 0x54 0x00 0x00 0x00 0x00 0x00 0x00 0x00
- }]
- close $f
- set ::tcl::clock::ZoneinfoPaths \
- [linsert $::tcl::clock::ZoneinfoPaths 0 $tzdir]
- ::tcl::clock::ClearCaches
- } \
- -cleanup {
- set ::tcl::clock::ZoneinfoPaths \
- [lrange $::tcl::clock::ZoneinfoPaths 1 end]
- ::tcl::clock::ClearCaches
- removeFile PhoenixOne $tzdir2
- removeDirectory Test $tzdir
- removeDirectory zoneinfo
- } \
- -body {
- clock format 1072940400 -timezone :Test/PhoenixOne \
- -format {%Y-%m-%d %H:%M:%S %Z}
- } \
- -result {2004-01-01 00:00:00 MST}