From 71ca448ff22cbf9be30e30bb7981e03d005e8afc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 4 Sep 2013 18:54:57 -0700
Subject: [PATCH] tzinfo: adding tests for normalize.

---
 extra/tzinfo/tests/US-Pacific    | Bin 0 -> 1017 bytes
 extra/tzinfo/tzinfo-tests.factor |  16 ++++++++++++++++
 extra/tzinfo/tzinfo.factor       |   3 +++
 3 files changed, 19 insertions(+)
 create mode 100644 extra/tzinfo/tests/US-Pacific
 create mode 100644 extra/tzinfo/tzinfo-tests.factor

diff --git a/extra/tzinfo/tests/US-Pacific b/extra/tzinfo/tests/US-Pacific
new file mode 100644
index 0000000000000000000000000000000000000000..2460278c70f344821cb458450741250ee5467b06
GIT binary patch
literal 1017
zcmdUu`A-uD9K~BiYdPjuT@|tDcV4wszylCLhX<zM1xW3v2Z%yRQ3nVX*tBA-2QH2;
zGk9CSqA?Q1N{EYwS*wXgWAFfDP_)(y2->N5fXLdl{_0=gd-=S)yx*T{iB2o{R^IN(
zgGU$KcsiI)#PN|j3Gp@sA3e}XH%kM#VdRJ0hV(IT-&uf7CDruMd6%251dnXB{J82g
z*(??Or1Vd+n+o}<E|;DeH2ge%5xq!_=9ls?YEh<O>wqL^lSN@$$7E<1NwK{_0<T(}
z_`0SO9M|mlZ}|gwWA5R%d3Erv%*Gv?F4OxQD}P8kMjsO@`BThR>I^k<*Vsz<+)vBh
zeT~rFwFSSlX`!bn6aTv&2hQ_Kbe&XyV4oa?JN&?_$QOI%jV14N8TU@|p*}OkESm6|
zM7w6Q7;cfc`V#uQJxjiJGy6TL2Y+ih|8T(!{i@C&>@SD@rGx{D^I@QF9sa0U43c;i
z4w^az2FoKbU_>$v5eHzPS2zWBgz?a4gGt&jh=VSFreQT*Jp5=gp?)0xwD}^9Q2XP^
z?1wNa{0)wt`wxtf+(ntf1Tv?C<vt}Kx7}t%`$`yRsp0XB1`0Oq=8)PI6lz${6L!y{
ziCKT)r2J7dSy_N#$$cnXrpAa#Z8Sv`iILLY5ZM}tQ@^xA)U_UrZoUE2&Ia)Gx>N9T
zSvSWV+yygo9`Q_L70pVp@a&8~C^nRNPV8Em^S%+4!8<|Ocn;(J*Fb#jUYzS#2=flr
z^8EYRv|vL8FZ_ExB`hoC#62ODG)=>c^gzkdXjU!mAXQHgtHbY+`ehWR40{JDSEZ<N
zHo}tQPF!j`2g{6hTyEJ5sTo%=%~T947T7p_dj+iww(_d1Ldx*3<V>Z8G95<Fl0{Qi
zy_R*NAktOGadwM~R`1EgHFu=2R<Fcg%}&Ts%Q3gi4tWv2xGv`k<Vze_kZ>FdTw>No
zT1jtv#YF*?RAi~=;w~foW-{~dO<LMuDCdpm<H(Sj&ztrsNFWply?VLhd$Y@Rn1lkC
etE@!e{k8Y~ntq9~DnVkhn_t`{syv4ldiWoMlVPO*

literal 0
HcmV?d00001

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 <timestamp> ! 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