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

Binary file not shown.

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

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
assocs calendar classes.struct combinators hashtables io
io.binary io.encodings.binary io.files kernel locals math