-- $Header: //info.ravenbrook.com/project/jili/version/1.1/test/mnj/lua/MathLibTest.lua#1 $
-- Copyright (c) 2006 Nokia Corporation and/or its subsidiary(-ies).
-- All rights reserved.
-- 
-- Permission is hereby granted, free of charge, to any person obtaining
-- a copy of this software and associated documentation files (the
-- "Software"), to deal in the Software without restriction, including
-- without limitation the rights to use, copy, modify, merge, publish,
-- distribute, sublicense, and/or sell copies of the Software, and to
-- permit persons to whom the Software is furnished to do so, subject
-- to the following conditions:
-- 
-- The above copyright notice and this permission notice shall be
-- included in all copies or substantial portions of the Software.
-- 
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-- IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
-- ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
-- CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-- WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
function test1()
  assert(type(math) == 'table')
  assert(math.abs(math.cos(5)) < 1)
  assert(math.abs(math.cos(2)) > 0)
  assert(math.sin(2) > 0)
  assert(math.sin(5) < 0)
  assert(math.tan(1) > 1)

  assert(math.abs(math.rad(180) - math.pi) < .1)
  assert(math.abs(math.deg(math.pi/2) - 90) < 1)
end

function test2()
  assert(math.ceil(0) == 0)
  assert(math.ceil(math.pi) == 4)
  assert(math.ceil(-1.2) == -1)
  assert(math.floor(0) == 0)
  assert(math.floor(math.pi) == 3)
  assert(math.floor(-1.2) == -2)

  assert(math.huge > 1e6)
  assert(math.fmod(3.5, 2) == 1.5)
  local a,b = math.modf(3.5)
  assert(a == 3)
  assert(b == 0.5)

  assert(math.max(3,2,1,5) == 5)
  assert(math.min(3,2,1,5) == 1)
end

function test3()
  assert(math.pow(2, 2) > 2)
  -- 0.693... is the natural logarithm of 2.
  assert(math.abs(math.exp(0.69314718055994529) - 2) < 0.1)
end