spec/timetable_spec.lua

   1 describe ( "Time table library" , function ( )
   2         local timetable = require "timetable"
   3
   4         it ( "Doomsday calculation" , function ( )
   5                 local doomsday = timetable.doomsday
   6
   7                 -- Doomsday in Gregorian calendar for 2013 is Thursday.
   8                 assert.are.same ( 5 , doomsday(2013) )
   9
  10                 assert.are.same ( 3 , doomsday(1967) )
  11                 assert.are.same ( 5 , doomsday(1968) )
  12         end )
  13
  14         it ( "Get day of week correct" , function ( )
  15                 local function native_normalise ( year , month , day )
  16                         return os.date("*t",os.time{
  17                                 year = year ;
  18                                 month = month ;
  19                                 day = day ;
  20                         })
  21                 end
  22                 local function assert_same_wday ( year , month , day )
  23                         return assert.are.same (
  24                                 native_normalise ( year , month , day ).wday ,
  25                                 timetable.new ( year , month , day ):normalise().wday
  26                         )
  27                 end
  28
  29                 assert_same_wday ( 2013 , 7 , 23 )
  30                 assert_same_wday ( 2013 , 7 , 24 )
  31                 assert_same_wday ( 2013 , 7 , 25 )
  32                 assert_same_wday ( 2013 , 7 , 26 )
  33                 assert_same_wday ( 2013 , 7 , 27 )
  34                 assert_same_wday ( 2013 , 7 , 28 )
  35                 assert_same_wday ( 2013 , 7 , 29 )
  36         end )
  37 end )