factor/extra/tzinfo/tzinfo-tests.factor

17 lines
343 B
Factor
Raw Normal View History

2013-09-04 21:54:57 -04:00
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