extra/tzinfo/tzinfo-tests.factor

   1 USING: calendar formatting kernel tools.test tzinfo ;
   2
   3 {
   4     "Sun Oct 27 01:00:00 2002"
   5     "Sun Oct 27 01:50:00 2002"
   6 } [
   7     2002 10 27 1 0 0 -8 hours <timestamp> ! PST
   8     [ "%c" strftime ]
   9     [
  10         10 minutes time- ! to PDT
  11         "vocab:tzinfo/tests/US-Pacific" file>tzinfo normalize
  12         "%c" strftime
  13     ] bi
  14 ] unit-test