equal
deleted
inserted
replaced
24 ^ b |
24 ^ b |
25 ! |
25 ! |
26 |
26 |
27 b:something |
27 b:something |
28 b := something. |
28 b := something. |
|
29 ! ! |
|
30 |
|
31 !NumberTest methodsFor:'temporary'! |
|
32 |
|
33 testEQ |
|
34 a = b ifTrue:[^ false]. |
|
35 ^ true. |
29 ! ! |
36 ! ! |
30 |
37 |
31 !NumberTest methodsFor:'tests-concrete bugs'! |
38 !NumberTest methodsFor:'tests-concrete bugs'! |
32 |
39 |
33 test_eqNumberBug |
40 test_eqNumberBug |
96 " |
103 " |
97 self new test_eqNumberBug |
104 self new test_eqNumberBug |
98 " |
105 " |
99 ! ! |
106 ! ! |
100 |
107 |
|
108 !NumberTest methodsFor:'tests-conversion-rounding'! |
|
109 |
|
110 test_conversion |
|
111 "reported as Bug 388 |
|
112 Current implementation neither truncate nor round to nearest Floating point |
|
113 value, it just accumulate round off errors." |
|
114 |
|
115 |
|
116 self assert: 16r1FFFFFFFFFFFF0801 asDouble ~= 16r1FFFFFFFFFFFF0800 asDouble. |
|
117 "this test is on 65 bits" |
|
118 |
|
119 self assert: 16r1FFFFFFFFFFFF0802 asDouble ~= 16r1FFFFFFFFFFFF0800 asDouble. |
|
120 "this test is on 64 bits" |
|
121 |
|
122 self assert: 16r1FFFFFFFFFFF1F800 asDouble = 16r1FFFFFFFFFFF20000 asDouble. |
|
123 "nearest even is upper" |
|
124 self assert: 16r1FFFFFFFFFFFF0800 asDouble = 16r1FFFFFFFFFFFF0000 asDouble. |
|
125 "nearest even is lower" |
|
126 |
|
127 "Created: / 24-10-2006 / 15:31:20 / cg" |
|
128 ! ! |
|
129 |
101 !NumberTest methodsFor:'tests-reading'! |
130 !NumberTest methodsFor:'tests-reading'! |
102 |
131 |
103 testReadFrom |
132 testReadFrom |
104 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
133 self assert: 1.0e-14 = (Number readFrom: '1.0e-14'). |
105 |
134 |