| author | Claus Gittinger <cg@exept.de> |
| Tue, 09 Jul 2019 18:53:03 +0200 | |
| changeset 2327 | bf482d49aeaf |
| parent 2266 | 43ebfa6688a1 |
| child 2452 | 88407e46d054 |
| permissions | -rw-r--r-- |
| 1447 | 1 |
"{ Package: 'stx:goodies/regression' }"
|
| 159 | 2 |
|
3 |
"{ NameSpace: RegressionTests }"
|
|
4 |
||
5 |
TestCase subclass:#FractionTest |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
| 1068 | 9 |
category:'tests-Regression-Numbers' |
| 159 | 10 |
! |
11 |
||
12 |
||
13 |
!FractionTest methodsFor:'tests'! |
|
14 |
||
| 314 | 15 |
testDegreeCos |
16 |
"self run: #testDegreeCos" |
|
| 1447 | 17 |
|
| 314 | 18 |
self shouldnt: [ (4/3) degreeCos] raise: Error. |
19 |
Smalltalk isSmalltalkX ifTrue:[ |
|
| 1447 | 20 |
self assert: ((1/3) degreeCos printString startsWith:'0.999983') |
| 314 | 21 |
] ifFalse:[ |
| 1447 | 22 |
self assert: (1/3) degreeCos printString = '0.999983076857744' |
| 314 | 23 |
] |
24 |
! |
|
25 |
||
26 |
testDegreeSin |
|
27 |
"self run: #testDegreeSin" |
|
| 1447 | 28 |
|
| 314 | 29 |
self shouldnt: [ (4/3) degreeSin] raise: Error. |
30 |
Smalltalk isSmalltalkX ifTrue:[ |
|
| 1447 | 31 |
self assert: ((1/3) degreeSin printString startsWith:'0.005817') |
| 314 | 32 |
] ifFalse:[ |
| 1447 | 33 |
self assert: (1/3) degreeSin printString = '0.005817731354993834' |
| 314 | 34 |
] |
35 |
! |
|
36 |
||
| 2266 | 37 |
testDivisionResult |
38 |
|a b rslt| |
|
39 |
||
40 |
"/ 45 gcd:18 -> 9 |
|
41 |
||
42 |
rslt := Fraction numerator:45 denominator:18. |
|
43 |
self assert:(rslt isFraction). |
|
44 |
self assert:(rslt numerator = 5). |
|
45 |
self assert:(rslt denominator = 2). |
|
46 |
||
47 |
a := 45. |
|
48 |
b := 18. |
|
49 |
rslt := Fraction numerator:a denominator:b. |
|
50 |
self assert:(rslt isFraction). |
|
51 |
self assert:(rslt numerator = 5). |
|
52 |
self assert:(rslt denominator = 2). |
|
53 |
||
54 |
rslt := a / b. |
|
55 |
self assert:(rslt isFraction). |
|
56 |
self assert:(rslt numerator = 5). |
|
57 |
self assert:(rslt denominator = 2). |
|
58 |
||
59 |
rslt := Fraction numerator:6 denominator:3. |
|
60 |
self assert:(rslt isInteger). |
|
61 |
self assert:(rslt == 2). |
|
62 |
||
63 |
a := 6. |
|
64 |
b := 3. |
|
65 |
rslt := Fraction numerator:a denominator:b. |
|
66 |
self assert:(rslt isInteger). |
|
67 |
self assert:(rslt == 2). |
|
68 |
||
69 |
rslt := a / b. |
|
70 |
self assert:(rslt isInteger). |
|
71 |
self assert:(rslt == 2). |
|
72 |
||
73 |
"Created: / 05-06-2019 / 18:57:26 / Claus Gittinger" |
|
74 |
! |
|
75 |
||
| 314 | 76 |
testFractionPrinting |
| 1824 | 77 |
self assert: (353 / 359) printString = '(353/359)'. |
| 314 | 78 |
|
| 1824 | 79 |
self assert: (-2 / 3) printString = '(-2/3)'. |
80 |
self assert: (-2 / 3) storeString = '(-2/3)'. |
|
81 |
self assert: (5 / -7) printString = '(-5/7)'. |
|
82 |
self assert: (5 / -7) storeString = '(-5/7)'. |
|
| 314 | 83 |
|
| 1824 | 84 |
Smalltalk isSmalltalkX ifFalse:[ |
85 |
self assert: ((2/3) printStringBase: 2) = '(10/11)'. |
|
86 |
self assert: ((2/3) storeStringBase: 2) = '(2r10/2r11)'. |
|
87 |
self assert: ((5/7) printStringBase: 3) = '(12/21)'. |
|
88 |
self assert: ((5/7) storeStringBase: 3) = '(3r12/3r21)'. |
|
89 |
self assert: ((11/13) printStringBase: 4) = '(23/31)'. |
|
90 |
self assert: ((11/13) storeStringBase: 4) = '(4r23/4r31)'. |
|
91 |
self assert: ((17/19) printStringBase: 5) = '(32/34)'. |
|
92 |
self assert: ((17/19) storeStringBase: 5) = '(5r32/5r34)'. |
|
93 |
self assert: ((23/29) printStringBase: 6) = '(35/45)'. |
|
94 |
self assert: ((23/29) storeStringBase: 6) = '(6r35/6r45)'. |
|
95 |
self assert: ((31/37) printStringBase: 7) = '(43/52)'. |
|
96 |
self assert: ((31/37) storeStringBase: 7) = '(7r43/7r52)'. |
|
97 |
self assert: ((41/43) printStringBase: 8) = '(51/53)'. |
|
98 |
self assert: ((41/43) storeStringBase: 8) = '(8r51/8r53)'. |
|
99 |
self assert: ((47/53) printStringBase: 9) = '(52/58)'. |
|
100 |
self assert: ((47/53) storeStringBase: 9) = '(9r52/9r58)'. |
|
101 |
self assert: ((59/61) printStringBase: 10) = '(59/61)'. |
|
102 |
self assert: ((59/61) storeStringBase: 10) = '(59/61)'. |
|
103 |
self assert: ((67/71) printStringBase: 11) = '(61/65)'. |
|
104 |
self assert: ((67/71) storeStringBase: 11) = '(11r61/11r65)'. |
|
105 |
self assert: ((73/79) printStringBase: 12) = '(61/67)'. |
|
106 |
self assert: ((73/79) storeStringBase: 12) = '(12r61/12r67)'. |
|
107 |
self assert: ((83/89) printStringBase: 13) = '(65/6B)'. |
|
108 |
self assert: ((83/89) storeStringBase: 13) = '(13r65/13r6B)'. |
|
109 |
self assert: ((97/101) printStringBase: 14) = '(6D/73)'. |
|
110 |
self assert: ((97/101) storeStringBase: 14) = '(14r6D/14r73)'. |
|
111 |
self assert: ((103/107) printStringBase: 15) = '(6D/72)'. |
|
112 |
self assert: ((103/107) storeStringBase: 15) = '(15r6D/15r72)'. |
|
113 |
self assert: ((109/113) printStringBase: 16) = '(6D/71)'. |
|
114 |
self assert: ((109/113) storeStringBase: 16) = '(16r6D/16r71)'. |
|
115 |
self assert: ((127/131) printStringBase: 17) = '(78/7C)'. |
|
116 |
self assert: ((127/131) storeStringBase: 17) = '(17r78/17r7C)'. |
|
117 |
self assert: ((137/139) printStringBase: 18) = '(7B/7D)'. |
|
118 |
self assert: ((137/139) storeStringBase: 18) = '(18r7B/18r7D)'. |
|
119 |
self assert: ((149/151) printStringBase: 19) = '(7G/7I)'. |
|
120 |
self assert: ((149/151) storeStringBase: 19) = '(19r7G/19r7I)'. |
|
121 |
self assert: ((157/163) printStringBase: 20) = '(7H/83)'. |
|
122 |
self assert: ((157/163) storeStringBase: 20) = '(20r7H/20r83)'. |
|
123 |
self assert: ((167/173) printStringBase: 21) = '(7K/85)'. |
|
124 |
self assert: ((167/173) storeStringBase: 21) = '(21r7K/21r85)'. |
|
125 |
self assert: ((179/181) printStringBase: 22) = '(83/85)'. |
|
126 |
self assert: ((179/181) storeStringBase: 22) = '(22r83/22r85)'. |
|
127 |
self assert: ((191/193) printStringBase: 23) = '(87/89)'. |
|
128 |
self assert: ((191/193) storeStringBase: 23) = '(23r87/23r89)'. |
|
129 |
self assert: ((197/199) printStringBase: 24) = '(85/87)'. |
|
130 |
self assert: ((197/199) storeStringBase: 24) = '(24r85/24r87)'. |
|
131 |
self assert: ((211/223) printStringBase: 25) = '(8B/8N)'. |
|
132 |
self assert: ((211/223) storeStringBase: 25) = '(25r8B/25r8N)'. |
|
133 |
self assert: ((227/229) printStringBase: 26) = '(8J/8L)'. |
|
134 |
self assert: ((227/229) storeStringBase: 26) = '(26r8J/26r8L)'. |
|
135 |
self assert: ((233/239) printStringBase: 27) = '(8H/8N)'. |
|
136 |
self assert: ((233/239) storeStringBase: 27) = '(27r8H/27r8N)'. |
|
137 |
self assert: ((241/251) printStringBase: 28) = '(8H/8R)'. |
|
138 |
self assert: ((241/251) storeStringBase: 28) = '(28r8H/28r8R)'. |
|
139 |
self assert: ((257/263) printStringBase: 29) = '(8P/92)'. |
|
140 |
self assert: ((257/263) storeStringBase: 29) = '(29r8P/29r92)'. |
|
141 |
self assert: ((269/271) printStringBase: 30) = '(8T/91)'. |
|
142 |
self assert: ((269/271) storeStringBase: 30) = '(30r8T/30r91)'. |
|
143 |
self assert: ((277/281) printStringBase: 31) = '(8T/92)'. |
|
144 |
self assert: ((277/281) storeStringBase: 31) = '(31r8T/31r92)'. |
|
145 |
self assert: ((283/293) printStringBase: 32) = '(8R/95)'. |
|
146 |
self assert: ((283/293) storeStringBase: 32) = '(32r8R/32r95)'. |
|
147 |
self assert: ((307/311) printStringBase: 33) = '(9A/9E)'. |
|
148 |
self assert: ((307/311) storeStringBase: 33) = '(33r9A/33r9E)'. |
|
149 |
self assert: ((313/317) printStringBase: 34) = '(97/9B)'. |
|
150 |
self assert: ((313/317) storeStringBase: 34) = '(34r97/34r9B)'. |
|
151 |
self assert: ((331/337) printStringBase: 35) = '(9G/9M)'. |
|
152 |
self assert: ((331/337) storeStringBase: 35) = '(35r9G/35r9M)'. |
|
153 |
self assert: ((347/349) printStringBase: 36) = '(9N/9P)'. |
|
154 |
self assert: ((347/349) storeStringBase: 36) = '(36r9N/36r9P)'. |
|
| 314 | 155 |
|
| 1824 | 156 |
self assert: ((-2/3) printStringBase: 2) = '(-10/11)'. |
157 |
self assert: ((-2/3) storeStringBase: 2) = '(-2r10/2r11)'. |
|
158 |
self assert: ((5/-7) printStringBase: 3) = '(-12/21)'. |
|
159 |
self assert: ((5/-7) storeStringBase: 3) = '(-3r12/3r21)'. |
|
160 |
]. |
|
| 314 | 161 |
! |
162 |
||
|
701
8e6f93fb198a
added: #testFractionReduction
Claus Gittinger <cg@exept.de>
parents:
314
diff
changeset
|
163 |
testFractionReduction |
| 1447 | 164 |
self assert: (100 factorial / 99 factorial) == 100. |
|
701
8e6f93fb198a
added: #testFractionReduction
Claus Gittinger <cg@exept.de>
parents:
314
diff
changeset
|
165 |
! |
|
8e6f93fb198a
added: #testFractionReduction
Claus Gittinger <cg@exept.de>
parents:
314
diff
changeset
|
166 |
|
| 159 | 167 |
testMixedAddition |
168 |
self assert:(((1/2) + (1/2)) = 1). |
|
169 |
self assert:(((1/2) + 0.5) = 1). |
|
170 |
self assert:(((1/2) + (0.5 asFixedPoint:2)) = 1). |
|
171 |
self assert:(((1/2) + (0.5 asDouble)) = 1). |
|
172 |
self assert:(((1/2) + (0.5 asFloat)) = 1). |
|
| 196 | 173 |
self assert:(((1/2) + (0.5 asLongFloat)) = 1). |
174 |
self assert:(((1/2) + (0.5 asShortFloat)) = 1). |
|
| 159 | 175 |
|
176 |
self assert:(((1/2) + ((1/2) asFixedPoint:2)) = 1). |
|
177 |
self assert:(((1/2) + ((1/2) asDouble)) = 1). |
|
178 |
self assert:(((1/2) + ((1/2) asFloat)) = 1). |
|
| 196 | 179 |
self assert:(((1/2) + ((1/2) asLongFloat)) = 1). |
180 |
self assert:(((1/2) + ((1/2) asShortFloat)) = 1). |
|
| 159 | 181 |
|
182 |
||
183 |
self assert:(((1/2) + (1/2)) = 1.0). |
|
184 |
self assert:(((1/2) + 0.5) = 1.0). |
|
185 |
self assert:(((1/2) + (0.5 asFixedPoint:2)) = 1.0). |
|
186 |
self assert:(((1/2) + (0.5 asDouble)) = 1.0). |
|
187 |
self assert:(((1/2) + (0.5 asFloat)) = 1.0). |
|
| 196 | 188 |
self assert:(((1/2) + (0.5 asLongFloat)) = 1.0). |
189 |
self assert:(((1/2) + (0.5 asShortFloat)) = 1.0). |
|
| 159 | 190 |
|
191 |
self assert:(((1/2) + ((1/2) asFixedPoint:2)) = 1.0). |
|
192 |
self assert:(((1/2) + ((1/2) asDouble)) = 1.0). |
|
193 |
self assert:(((1/2) + ((1/2) asFloat)) = 1.0). |
|
| 196 | 194 |
self assert:(((1/2) + ((1/2) asLongFloat)) = 1.0). |
195 |
self assert:(((1/2) + ((1/2) asShortFloat)) = 1.0). |
|
| 159 | 196 |
|
197 |
self assert:((0.5 + (1/2)) = 1). |
|
198 |
self assert:(((0.5 asFixedPoint:2) + (1/2)) = 1). |
|
199 |
self assert:((((0.5 asFloat) asDouble) + (1/2)) = 1). |
|
200 |
||
201 |
self assert:((1 + (1/2)) = (3/2)). |
|
202 |
self assert:((1.0 + (1/2)) = (3/2)). |
|
203 |
self assert:(((1 asFixedPoint:2) + (1/2)) = (3/2)). |
|
204 |
self assert:((((1 asFloat) asDouble) + (1/2)) = (3/2)). |
|
205 |
! |
|
206 |
||
207 |
testMixedAddition2 |
|
208 |
|fix1 fix2| |
|
209 |
||
210 |
fix1 := (1/2) asFixedPoint:2. |
|
211 |
fix2 := (1/2) asFixedPoint:2. |
|
212 |
||
213 |
self assert:((fix1 + (1/2)) = 1). |
|
214 |
self assert:((fix1 + 0.5) = 1). |
|
215 |
self assert:((fix1 + (0.5 asFixedPoint:2)) = 1). |
|
216 |
self assert:((fix1 + (0.5 asDouble)) = 1). |
|
217 |
self assert:((fix1 + (0.5 asFloat)) = 1). |
|
| 196 | 218 |
self assert:((fix1 + (0.5 asLongFloat)) = 1). |
219 |
self assert:((fix1 + (0.5 asShortFloat)) = 1). |
|
| 159 | 220 |
|
221 |
self assert:((fix1 + ((1/2) asFixedPoint:2)) = 1). |
|
222 |
self assert:((fix1 + ((1/2) asDouble)) = 1). |
|
223 |
self assert:((fix1 + ((1/2) asFloat)) = 1). |
|
| 196 | 224 |
self assert:((fix1 + ((1/2) asLongFloat)) = 1). |
225 |
self assert:((fix1 + ((1/2) asShortFloat)) = 1). |
|
| 159 | 226 |
|
227 |
||
228 |
self assert:((fix1 + (1/2)) = 1.0). |
|
229 |
self assert:((fix1 + 0.5) = 1.0). |
|
230 |
self assert:((fix1 + (0.5 asFixedPoint:2)) = 1.0). |
|
231 |
self assert:((fix1 + (0.5 asDouble)) = 1.0). |
|
232 |
self assert:((fix1 + (0.5 asFloat)) = 1.0). |
|
| 196 | 233 |
self assert:((fix1 + (0.5 asLongFloat)) = 1.0). |
234 |
self assert:((fix1 + (0.5 asShortFloat)) = 1.0). |
|
| 159 | 235 |
|
236 |
self assert:((fix1 + ((1/2) asFixedPoint:2)) = 1.0). |
|
237 |
self assert:((fix1 + ((1/2) asDouble)) = 1.0). |
|
238 |
self assert:((fix1 + ((1/2) asFloat)) = 1.0). |
|
| 196 | 239 |
self assert:((fix1 + ((1/2) asLongFloat)) = 1.0). |
240 |
self assert:((fix1 + ((1/2) asShortFloat)) = 1.0). |
|
| 159 | 241 |
|
242 |
self assert:((0.5 + (fix1)) = 1). |
|
243 |
self assert:(((0.5 asFixedPoint:2) + fix1) = 1). |
|
244 |
self assert:((((0.5 asFloat) asDouble) + (fix1)) = 1). |
|
245 |
||
246 |
self assert:((1 + fix1) = (3/2)). |
|
247 |
self assert:((1.0 + fix1) = (3/2)). |
|
248 |
self assert:(((1 asFixedPoint:2) + fix1) = (3/2)). |
|
249 |
self assert:((((1 asFloat) asDouble) + fix1) = (3/2)). |
|
250 |
! ! |
|
251 |
||
252 |
!FractionTest class methodsFor:'documentation'! |
|
253 |
||
254 |
version |
|
255 |
^ '$Header$' |
|
256 |
! ! |
|
| 1068 | 257 |