diff --git a/extra/tzinfo/tests/US-Pacific b/extra/tzinfo/tests/US-Pacific new file mode 100644 index 0000000000..2460278c70 Binary files /dev/null and b/extra/tzinfo/tests/US-Pacific differ diff --git a/extra/tzinfo/tzinfo-tests.factor b/extra/tzinfo/tzinfo-tests.factor new file mode 100644 index 0000000000..3cd51462b7 --- /dev/null +++ b/extra/tzinfo/tzinfo-tests.factor @@ -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 ! PST + [ "%c" strftime ] + [ + 10 minutes time- ! to PDT + "vocab:tzinfo/tests/US-Pacific" file>tzinfo normalize + "%c" strftime + ] bi +] unit-test diff --git a/extra/tzinfo/tzinfo.factor b/extra/tzinfo/tzinfo.factor index cd840ae398..15fa7a5bb8 100644 --- a/extra/tzinfo/tzinfo.factor +++ b/extra/tzinfo/tzinfo.factor @@ -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