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
  38         local function native_timestamp ( year , month , day )
  39                 return assert ( tonumber ( assert ( io.popen (
  40                                                 string.format('date -u -d "%d-%d-%d" +%%s', year , month , day )
  41                                         ) ):read "*l" ) )
  42         end
  43
  44         it ( "Timestamp creation is valid" , function ( )
  45                 for y=1950,2013 do
  46                         for m=1,12 do
  47                                 assert.same ( native_timestamp ( y,m,1 ) , timetable.timestamp(y,m,1,0,0,0) )
  48                         end
  49                 end
  50         end)
  51 end )