spec/timetable_spec.lua

   1 describe ( "Timetable library" , function ( )
   2         local timetable = require "luatz.timetable"
   3
   4         local function native_normalise ( year , month , day )
   5                 return os.date("*t",os.time{
   6                         year = year ;
   7                         month = month ;
   8                         day = day ;
   9                 })
  10         end
  11
  12         it ( "#normalise gets #wday (day of week) correct" , function ( )
  13
  14                 local function assert_same_wday ( year , month , day )
  15                         return assert.are.same (
  16                                 native_normalise ( year , month , day ).wday ,
  17                                 timetable.new ( year , month , day ):normalise().wday
  18                         )
  19                 end
  20
  21                 assert_same_wday ( 2013 , 7 , 23 )
  22                 assert_same_wday ( 2013 , 7 , 24 )
  23                 assert_same_wday ( 2013 , 7 , 25 )
  24                 assert_same_wday ( 2013 , 7 , 26 )
  25                 assert_same_wday ( 2013 , 7 , 27 )
  26                 assert_same_wday ( 2013 , 7 , 28 )
  27                 assert_same_wday ( 2013 , 7 , 29 )
  28                 assert_same_wday ( 2014 , 1 , 1 )
  29                 assert_same_wday ( 2014 , 1 , 6 )
  30                 assert_same_wday ( 2016 , 2 , 28 )
  31         end )
  32
  33         local function native_timestamp ( year , month , day )
  34                 return assert ( tonumber ( assert ( io.popen (
  35                                                 string.format('date -u -d "%d-%d-%d" +%%s', year , month , day )
  36                                         ) ):read "*l" ) )
  37         end
  38
  39         it ( "#timestamp creation is valid" , function ( )
  40                 for y=1950,2013 do
  41                         for m=1,12 do
  42                                 assert.same ( native_timestamp ( y,m,1 ) , timetable.timestamp(y,m,1,0,0,0) )
  43                         end
  44                 end
  45         end )
  46
  47         it ( "#normalise handles out of range days in a #month" , function ( )
  48                 assert.same ( { timetable.normalise(2013,0,1,0,0,0) } , { 2012,12,1,0,0,0 } )
  49                 assert.same ( { timetable.normalise(2013,42,1,0,0,0) } , { 2016,6,1,0,0,0 } )
  50
  51                 -- Correct behaviour around leap days
  52                 assert.same ( { timetable.normalise(2012,2,52,0,0,0) } , { 2012,3,23,0,0,0 } )
  53                 assert.same ( { timetable.normalise(2013,2,52,0,0,0) } , { 2013,3,24,0,0,0 } )
  54
  55                 assert.same ( { timetable.normalise(2012,3,-2,0,0,0) } , { 2012,2,26,0,0,0 } )
  56                 assert.same ( { timetable.normalise(2013,3,-2,0,0,0) } , { 2013,2,27,0,0,0 } )
  57
  58                 -- Also when more fields are out of range
  59                 assert.same ( { timetable.normalise(2013,42,52,0,0,0) } , { 2016,7,22,0,0,0 } )
  60                 assert.same ( { timetable.normalise(2013,42,52,50,0,0) } , { 2016,7,24,2,0,0 } )
  61         end )
  62 end )