extra/calendar/elapsed/elapsed-tests.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: calendar calendar.elapsed kernel tools.test ;
   5
   6 [ -1 elapsed-time ] [ "negative seconds" = ] must-fail-with
   7
   8 { "0s" } [ 0 elapsed-time ] unit-test
   9 { "59s" } [ 59 elapsed-time ] unit-test
  10 { "1m" } [ 60 elapsed-time ] unit-test
  11 { "1m 1s" } [ 61 elapsed-time ] unit-test
  12 { "2y 1w 6d 2h 59m 23s" } [ 64033163 elapsed-time ] unit-test
  13
  14 { "just now" } [ 0 relative-time ] unit-test
  15 { "less than a minute ago" } [ 10 relative-time ] unit-test
  16 { "about a minute ago" } [ 60 relative-time ] unit-test
  17 { "about a minute ago" } [ 90 relative-time ] unit-test
  18 { "4 minutes ago" } [ 270 relative-time ] unit-test