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         local function native_normalise ( year , month , day )
  15                 return os.date("*t",os.time{
  16                         year = year ;
  17                         month = month ;
  18                         day = day ;
  19                 })
  20         end
  21
  22         it ( "Get day of week correct" , function ( )
  23
  24                 local function assert_same_wday ( year , month , day )
  25                         return assert.are.same (
  26                                 native_normalise ( year , month , day ).wday ,
  27                                 timetable.new ( year , month , day ):normalise().wday
  28                         )
  29                 end
  30
  31                 assert_same_wday ( 2013 , 7 , 23 )
  32                 assert_same_wday ( 2013 , 7 , 24 )
  33                 assert_same_wday ( 2013 , 7 , 25 )
  34                 assert_same_wday ( 2013 , 7 , 26 )
  35                 assert_same_wday ( 2013 , 7 , 27 )
  36                 assert_same_wday ( 2013 , 7 , 28 )
  37                 assert_same_wday ( 2013 , 7 , 29 )
  38         end )
  39
  40         local function native_timestamp ( year , month , day )
  41                 return assert ( tonumber ( assert ( io.popen (
  42                                                 string.format('date -u -d "%d-%d-%d" +%%s', year , month , day )
  43                                         ) ):read "*l" ) )
  44         end
  45
  46         it ( "Timestamp creation is valid" , function ( )
  47                 for y=1950,2013 do
  48                         for m=1,12 do
  49                                 assert.same ( native_timestamp ( y,m,1 ) , timetable.timestamp(y,m,1,0,0,0) )
  50                         end
  51                 end
  52         end )
  53
  54         it ( "Out of range month is normalised" , function ( )
  55                 assert.same ( { timetable.normalise(2013,0,1,0,0,0) } , { 2012,12,1,0,0,0 } )
  56         end )
  57 end )