extra/time/time-tests.factor

   1 ! Copyright (C) 2008 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: kernel time tools.test calendar ;
   5
   6 IN: time.tests
   7
   8 [ "%H:%M:%S" strftime ] must-infer
   9
  10 : testtime ( -- timestamp )
  11     2008 10 9 12 3 15 instant <timestamp> ;
  12
  13 [ t ] [ "12:03:15" testtime "%H:%M:%S" strftime = ] unit-test
  14 [ t ] [ "12:03:15" testtime "%X" strftime = ] unit-test
  15
  16 [ t ] [ "10/09/2008" testtime "%m/%d/%Y" strftime = ] unit-test
  17 [ t ] [ "10/09/2008" testtime "%x" strftime = ] unit-test
  18
  19 [ t ] [ "Thu" testtime "%a" strftime = ] unit-test
  20 [ t ] [ "Thursday" testtime "%A" strftime = ] unit-test
  21
  22 [ t ] [ "Oct" testtime "%b" strftime = ] unit-test
  23 [ t ] [ "October" testtime "%B" strftime = ] unit-test
  24