luatz/timetable: Check argument to `new_from_timestamp`

diff --git a/luatz/timetable.lua b/luatz/timetable.lua
index 10af17018f90a9f14f5ef0c2ce72af9f9e367616..f09637255e7676bc821342dca9e91e0b4ba25e59 100644 (file)
--- a/luatz/timetable.lua
+++ b/luatz/timetable.lua
@@ -193,6 +193,9 @@ function timetable_methods:clone ( )
 end
 
 local function new_from_timestamp ( ts )
 end
 
 local function new_from_timestamp ( ts )

+       if type ( ts ) ~= "number" then
+               error ( "bad argument #1 to 'new_from_timestamp' (number expected, got " .. type ( ts ) .. ")" , 2 )
+       end

        return new_timetable ( 1970 , 1 , 1 , 0 , 0 , ts )
 end
 
        return new_timetable ( 1970 , 1 , 1 , 0 , 0 , ts )
 end