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

locals-and-roots
Björn Lindqvist 2016-04-01 02:43:09 +02:00
parent a921e35af3
commit 9a8f35c23b
1 changed files with 16 additions and 3 deletions

View File

@ -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