zoneinfo.tests: a few trivial tests, for diagnosing #1513

diff --git a/extra/zoneinfo/zoneinfo-tests.factor b/extra/zoneinfo/zoneinfo-tests.factor
index f3e06317183d99cb07aa15226131ebff19e56a45..4f5f77d6723027ed7ad51ce79d257820b508a80c 100644 (file)
--- a/extra/zoneinfo/zoneinfo-tests.factor
+++ b/extra/zoneinfo/zoneinfo-tests.factor
@@ -1,7 +1,20 @@
 ! Copyright (C) 2013 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel tools.test zoneinfo ;
+USING: kernel sequences tools.test zoneinfo ;
 IN: zoneinfo.tests
 
-{ t }
-[ "PST8PDT" find-zone-rules and >boolean ] unit-test
+{ t } [ "PST8PDT" find-zone-rules and >boolean ] unit-test
+
+{ 13 } [ zoneinfo-paths length ] unit-test
+
+{
+    T{ raw-zone
+       { name "EST" }
+       { gmt-offset "-5:00" }
+       { rules/save "-" }
+       { format "EST" }
+       { until { } }
+    }
+} [
+    "EST" find-zone
+] unit-test