18 lines
382 B
Factor
18 lines
382 B
Factor
! Copyright (C) 2013 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel sequences tools.test zoneinfo ;
|
|
|
|
{ t } [ "PST8PDT" find-zone-rules and >boolean ] unit-test
|
|
|
|
{
|
|
T{ raw-zone
|
|
{ name "EST" }
|
|
{ gmt-offset "-5:00" }
|
|
{ rules/save "-" }
|
|
{ format "EST" }
|
|
{ until { } }
|
|
}
|
|
} [
|
|
"EST" find-zone
|
|
] unit-test
|