tests/test-elmo-date.el

   1 (require 'lunit)
   2 (require 'elmo-date)
   3
   4 (luna-define-class test-elmo-date (lunit-test-case))
   5
   6 (luna-define-method test-elmo-date-get-week ((case test-elmo-date))
   7   "Check around singularity date. leap year and 2038-01-19."
   8   (let ((elmo-lang "en"))
   9     (lunit-assert
  10      (string= "Tue" (elmo-date-get-week 2000 2 29)))
  11     (lunit-assert
  12      (string= "Tue" (elmo-date-get-week 2038 1 19)))
  13     (lunit-assert
  14      (string= "Wed" (elmo-date-get-week 2038 1 20)))
  15     (lunit-assert
  16      (string= "Sun" (elmo-date-get-week 2100 2 28)))
  17     (lunit-assert
  18      (string= "Mon" (elmo-date-get-week 2100 3 1)))))