basis/calendar/format/format-tests.factor

   1 USING: accessors calendar calendar.format io io.streams.string
   2 kernel math.order sequences tools.test ;
   3 IN: calendar.format.tests
   4
   5 { } [ now timestamp>rfc3339 drop ] unit-test
   6 { } [ now timestamp>rfc822 drop ] unit-test
   7
   8 { }
   9 [ { 2008 2009 } [ year. ] each ] unit-test
  10
  11
  12 { "03:01:59" } [
  13     3 hours 1 >>minute 59 >>second duration>hms
  14 ] unit-test