zoneinfo.tests: a few trivial tests, for diagnosing #1513
parent
a921e35af3
commit
9a8f35c23b
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue