steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tzinfo: adding tests for normalize.

db4
John Benediktsson 2013-09-04 18:54:57 -07:00
parent 73f2fac980
commit 71ca448ff2
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
extra/tzinfo/tests/US-Pacific Normal file
View File

Binary file not shown.

16
extra/tzinfo/tzinfo-tests.factor Normal file
View File

@ -0,0 +1,16 @@
USING: calendar formatting kernel tools.test ;
IN: tzinfo
{
"Sun Oct 27 01:00:00 2002"
"Sun Oct 27 01:50:00 2002"
} [
2002 10 27 1 0 0 -8 hours <timestamp> ! PST
[ "%c" strftime ]
[
10 minutes time- ! to PDT
"vocab:tzinfo/tests/US-Pacific" file>tzinfo normalize
"%c" strftime
] bi
] unit-test

3
extra/tzinfo/tzinfo.factor
View File

@ -1,3 +1,6 @@
! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: accessors alien.c-types alien.data alien.endian arrays USING: accessors alien.c-types alien.data alien.endian arrays
assocs calendar classes.struct combinators hashtables io assocs calendar classes.struct combinators hashtables io
io.binary io.encodings.binary io.files kernel locals math io.binary io.encodings.binary io.files kernel locals math