Commit d1f937e1 authored by KOBAYASHI Shuji's avatar KOBAYASHI Shuji

Fix missing assertions in `mruby-math` test

parent 42f24079
##
# Math Test
##
# Performs fuzzy check for equality on methods returning floats
# on the basis of the Mrbtest::FLOAT_TOLERANCE constant.
def check_float(a, b)
tolerance = Mrbtest::FLOAT_TOLERANCE
a = a.to_f
b = b.to_f
if a.finite? and b.finite?
(a-b).abs < tolerance
else
true
end
end
assert('Math.sin 0') do
check_float(Math.sin(0), 0)
assert_float(0, Math.sin(0))
end
assert('Math.sin PI/2') do
check_float(Math.sin(Math::PI / 2), 1)
assert_float(1, Math.sin(Math::PI / 2))
end
assert('Math.cos 0') do
check_float(Math.cos(0), 1)
assert_float(1, Math.cos(0))
end
assert('Math.cos PI/2') do
check_float(Math.cos(Math::PI / 2), 0)
assert_float(0, Math.cos(Math::PI / 2))
end
assert('Math.tan 0') do
check_float(Math.tan(0), 0)
assert_float(0, Math.tan(0))
end
assert('Math.tan PI/4') do
check_float(Math.tan(Math::PI / 4), 1)
assert_float(1, Math.tan(Math::PI / 4))
end
assert('Fundamental trig identities') do
result = true
N = 13
N.times do |i|
a = Math::PI / N * i
......@@ -48,105 +33,100 @@ assert('Fundamental trig identities') do
s = Math.sin(a)
c = Math.cos(a)
t = Math.tan(a)
result &= check_float(s, Math.cos(ca))
result &= check_float(t, 1 / Math.tan(ca))
result &= check_float(s ** 2 + c ** 2, 1)
result &= check_float(t ** 2 + 1, (1/c) ** 2)
result &= check_float((1/t) ** 2 + 1, (1/s) ** 2)
assert_float(Math.cos(ca), s)
assert_float(1 / Math.tan(ca), t)
assert_float(1, s ** 2 + c ** 2)
assert_float((1/c) ** 2, t ** 2 + 1)
assert_float((1/s) ** 2, (1/t) ** 2 + 1)
end
result
end
assert('Math.erf 0') do
check_float(Math.erf(0), 0)
assert_float(0, Math.erf(0))
end
assert('Math.exp 0') do
check_float(Math.exp(0), 1.0)
assert_float(1.0, Math.exp(0))
end
assert('Math.exp 1') do
check_float(Math.exp(1), 2.718281828459045)
assert_float(2.718281828459045, Math.exp(1))
end
assert('Math.exp 1.5') do
check_float(Math.exp(1.5), 4.4816890703380645)
assert_float(4.4816890703380645, Math.exp(1.5))
end
assert('Math.log 1') do
check_float(Math.log(1), 0)
assert_float(0, Math.log(1))
end
assert('Math.log E') do
check_float(Math.log(Math::E), 1.0)
assert_float(1.0, Math.log(Math::E))
end
assert('Math.log E**3') do
check_float(Math.log(Math::E**3), 3.0)
assert_float(3.0, Math.log(Math::E**3))
end
assert('Math.log2 1') do
check_float(Math.log2(1), 0.0)
assert_float(0.0, Math.log2(1))
end
assert('Math.log2 2') do
check_float(Math.log2(2), 1.0)
assert_float(1.0, Math.log2(2))
end
assert('Math.log10 1') do
check_float(Math.log10(1), 0.0)
assert_float(0.0, Math.log10(1))
end
assert('Math.log10 10') do
check_float(Math.log10(10), 1.0)
assert_float(1.0, Math.log10(10))
end
assert('Math.log10 10**100') do
check_float(Math.log10(10**100), 100.0)
assert_float(100.0, Math.log10(10**100))
end
assert('Math.sqrt') do
num = [0.0, 1.0, 2.0, 3.0, 4.0]
sqr = [0, 1, 4, 9, 16]
result = true
sqr.each_with_index do |v,i|
result &= check_float(Math.sqrt(v), num[i])
assert_float(num[i], Math.sqrt(v))
end
result
end
assert('Math.cbrt') do
num = [-2.0, -1.0, 0.0, 1.0, 2.0]
cub = [-8, -1, 0, 1, 8]
result = true
cub.each_with_index do |v,i|
result &= check_float(Math.cbrt(v), num[i])
assert_float(num[i], Math.cbrt(v))
end
result
end
assert('Math.hypot') do
check_float(Math.hypot(3, 4), 5.0)
assert_float(5.0, Math.hypot(3, 4))
end
assert('Math.frexp 1234') do
n = 1234
fraction, exponent = Math.frexp(n)
check_float(Math.ldexp(fraction, exponent), n)
assert_float(n, Math.ldexp(fraction, exponent))
end
assert('Math.erf 1') do
check_float(Math.erf(1), 0.842700792949715)
assert_float(0.842700792949715, Math.erf(1))
end
assert('Math.erfc 1') do
check_float(Math.erfc(1), 0.157299207050285)
assert_float(0.157299207050285, Math.erfc(1))
end
assert('Math.erf -1') do
check_float(Math.erf(-1), -0.8427007929497148)
assert_float(-0.8427007929497148, Math.erf(-1))
end
assert('Math.erfc -1') do
check_float(Math.erfc(-1), 1.8427007929497148)
assert_float(1.8427007929497148, Math.erfc(-1))
end
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment