1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
require 'test/unit'
require "-test-/float"
class TestFloatExt < Test::Unit::TestCase
NEXTAFTER_VALUES = [
-Float::INFINITY,
-Float::MAX,
-100.0,
-1.0-Float::EPSILON,
-1.0,
-Float::EPSILON,
-Float::MIN/2,
-Math.ldexp(0.5, Float::MIN_EXP - Float::MANT_DIG + 1),
-0.0,
0.0,
Math.ldexp(0.5, Float::MIN_EXP - Float::MANT_DIG + 1),
Float::MIN/2,
Float::MIN,
Float::EPSILON,
1.0,
1.0+Float::EPSILON,
100.0,
Float::MAX,
Float::INFINITY,
Float::NAN
]
test_number = 0
NEXTAFTER_VALUES.each {|n1|
NEXTAFTER_VALUES.each {|n2|
tag = n2.infinite? ? "ruby" : "other"
test_name = "test_nextafter_#{test_number}_#{tag}_#{n1}_#{n2}"
test_number += 1
define_method(test_name) {
v1 = Bug::Float.missing_nextafter(n1, n2)
v2 = Bug::Float.system_nextafter(n1, n2)
assert_kind_of(Float, v1)
assert_kind_of(Float, v2)
if v1.nan?
assert(v2.nan?, "Bug::Float.system_nextafter(#{n1}, #{n2}).nan?")
else
assert_equal(v1, v2,
"Bug::Float.missing_nextafter(#{'%a' % n1}, #{'%a' % n2}) = #{'%a' % v1} != " +
"#{'%a' % v2} = Bug::Float.system_nextafter(#{'%a' % n1}, #{'%a' % n2})")
if v1 == 0
s1 = 1.0/v1 < 0 ? "negative-zero" : "positive-zero"
s2 = 1.0/v2 < 0 ? "negative-zero" : "positive-zero"
assert_equal(s1, s2,
"Bug::Float.missing_nextafter(#{'%a' % n1}, #{'%a' % n2}) = #{'%a' % v1} != " +
"#{'%a' % v2} = Bug::Float.system_nextafter(#{'%a' % n1}, #{'%a' % n2})")
end
end
}
}
}
end
|
