factor/extra/tzinfo/tzinfo-tests.factor

15 lines
338 B
Factor
Raw Normal View History

2018-02-15 11:45:08 -05:00
USING: calendar formatting kernel tools.test tzinfo ;
2013-09-04 21:54:57 -04:00
{
"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