Enhance test of math module for 100% code coverage

tests/math.be

@@ -83,3 +83,132 @@ assert(math.min(-3.4, 5) == -3.4)
 # test invalid parameters
 assert_error(def () return math.min(4, nil) end, 'type_error')
 assert_error(def () return math.min(4, "", 4.5) end, 'type_error')
+
+# math.max
+assert(math.max() == nil)
+assert(math.max(0) == 0)
+assert(math.max(0,2,10,56) == 56)
+assert(math.max(4, 2, -10, 3) == 4)
+assert(math.max(4, 2) == 4)
+
+assert(type(math.max(4, 2, 10, 3)) == 'int')
+assert(type(math.max(4, 2, 10.0, 3)) == 'real')
+
+assert(math.max(-3.4, 5) == 5)
+
+assert_error(def () return math.max(4, nil) end, 'type_error')
+assert_error(def () return math.max(4, "", 4.5) end, 'type_error')
+
+# math.abs
+assert(math.abs(3) == 3)
+assert(math.abs(-3) == 3)
+assert(math.abs(0) == 0)
+assert(math.abs(-3.5) == 3.5)
+assert(math.abs(3.5) == 3.5)
+assert(math.abs() == 0)   # no-arg fallback returns 0.0
+
+# math.ceil
+assert(math.ceil(3.0) == 3)
+assert(math.ceil(3.1) == 4)
+assert(math.ceil(3.9) == 4)
+assert(math.ceil(-3.1) == -3)
+assert(math.ceil(-3.9) == -3)
+assert(math.ceil(0) == 0)
+assert(math.ceil() == 0)
+
+# math.floor
+assert(math.floor(3.0) == 3)
+assert(math.floor(3.1) == 3)
+assert(math.floor(3.9) == 3)
+assert(math.floor(-3.1) == -4)
+assert(math.floor(-3.9) == -4)
+assert(math.floor(0) == 0)
+assert(math.floor() == 0)
+
+# math.sqrt
+assert(math.sqrt(4) == 2)
+assert(math.sqrt(9) == 3)
+assert(math.sqrt(0) == 0)
+assert(math.isnan(math.sqrt(-1)))
+assert(math.sqrt() == 0)
+
+# math.exp / math.log
+# use tolerance for float vs double compatibility
+var eps = 1e-5
+assert(math.abs(math.exp(0) - 1.0) < eps)
+assert(math.abs(math.exp(1) - 2.71828) < 1e-4)
+assert(math.exp() == 0)
+
+assert(math.abs(math.log(1) - 0.0) < eps)
+assert(math.abs(math.log(math.exp(1)) - 1.0) < eps)
+assert(math.isnan(math.log(-1)))
+assert(math.log() == 0)
+
+# math.log10
+assert(math.abs(math.log10(1) - 0.0) < eps)
+assert(math.abs(math.log10(10) - 1.0) < eps)
+assert(math.abs(math.log10(100) - 2.0) < eps)
+assert(math.log10() == 0)
+
+# math.pow
+assert(math.pow(2, 0) == 1)
+assert(math.pow(2, 10) == 1024)
+assert(math.abs(math.pow(2, 0.5) - math.sqrt(2)) < eps)
+assert(math.pow() == 0)
+
+# math.sin / math.cos / math.tan
+assert(math.abs(math.sin(0)) < eps)
+assert(math.abs(math.sin(math.pi) ) < 1e-5)
+assert(math.abs(math.cos(0) - 1.0) < eps)
+assert(math.abs(math.cos(math.pi) + 1.0) < 1e-5)
+assert(math.abs(math.tan(0)) < eps)
+assert(math.sin() == 0)
+assert(math.cos() == 0)
+assert(math.tan() == 0)
+
+# math.asin / math.acos / math.atan
+assert(math.abs(math.asin(0)) < eps)
+assert(math.abs(math.asin(1) - math.pi/2) < eps)
+assert(math.abs(math.acos(1)) < eps)
+assert(math.abs(math.acos(0) - math.pi/2) < eps)
+assert(math.abs(math.atan(0)) < eps)
+assert(math.abs(math.atan(1) - math.pi/4) < eps)
+assert(math.asin() == 0)
+assert(math.acos() == 0)
+assert(math.atan() == 0)
+
+# math.atan2
+assert(math.abs(math.atan2(0, 1)) < eps)
+assert(math.abs(math.atan2(1, 0) - math.pi/2) < eps)
+assert(math.abs(math.atan2(1, 1) - math.pi/4) < eps)
+assert(math.atan2() == 0)
+
+# math.sinh / math.cosh / math.tanh
+assert(math.abs(math.sinh(0)) < eps)
+assert(math.abs(math.cosh(0) - 1.0) < eps)
+assert(math.abs(math.tanh(0)) < eps)
+assert(math.sinh() == 0)
+assert(math.cosh() == 0)
+assert(math.tanh() == 0)
+
+# math.deg / math.rad
+assert(math.abs(math.deg(math.pi) - 180.0) < 1e-4)
+assert(math.abs(math.deg(math.pi/2) - 90.0) < 1e-4)
+assert(math.abs(math.rad(180) - math.pi) < 1e-4)
+assert(math.abs(math.rad(90) - math.pi/2) < 1e-4)
+assert(math.deg() == 0)
+assert(math.rad() == 0)
+
+# math.srand / math.rand
+math.srand(42)
+var r1 = math.rand()
+assert(type(r1) == 'int')
+math.srand(42)
+var r2 = math.rand()
+assert(r1 == r2)   # same seed -> same first value
+math.srand()       # no-arg call (no-op, returns nil)
+
+# math.pi / math.imax / math.imin
+assert(math.abs(math.pi - 3.14159) < 1e-4)
+assert(math.imax > 0)
+assert(math.imin < 0)