107 t := maxVal + 1. |
107 t := maxVal + 1. |
108 self test:[t - 1 == maxVal]. |
108 self test:[t - 1 == maxVal]. |
109 t := minVal - 1. |
109 t := minVal - 1. |
110 self test:[t + 1 == minVal]. |
110 self test:[t + 1 == minVal]. |
111 |
111 |
112 "multiplication" |
112 self testLargeMultiplication. |
113 t1 := 100. |
113 self testLargeDivision. |
114 self test:[t1 * t1 == 10000]. |
114 self testLargeAddition. |
115 self test:[(t1 perform:'*' asSymbol with:t1) == 10000]. |
115 |
116 self test:[(t1 * t1) printString = '10000']. |
116 " |
117 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000']. |
117 self test1 |
118 |
118 " |
119 t1 := 1000. |
119 |
120 self test:[t1 * t1 == 1000000]. |
120 "Modified: / 20.5.1999 / 09:41:19 / cg" |
121 self test:[(t1 perform:'*' asSymbol with:t1) == 1000000]. |
121 ! |
122 self test:[(t1 * t1) printString = '1000000']. |
122 |
123 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000']. |
123 testLargeAddition |
124 |
124 "general conversion & arithmetic tests. |
125 t1 := 10000. |
125 Notice, the arithmetic tests are both performed via regular sends |
126 self test:[t1 * t1 == 100000000]. |
126 and via constructed performs. The reason is to test both inlined |
127 self test:[(t1 perform:'*' asSymbol with:t1) == 100000000]. |
127 JIT-compiler code AND the regular methods code." |
128 self test:[(t1 * t1) printString = '100000000']. |
128 |
129 self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000']. |
129 "Large + Large addition" |
130 |
130 self testReading1. |
131 t1 := 100000. |
131 |
132 SmallInteger maxBytes == 4 ifTrue:[ |
132 self test:[(20 factorial + 20 factorial) printString = '4865804016353280000']. |
133 self test:[t1 * t1 = 10000000000]. |
133 self test:[(20 factorial + 1) printString = '2432902008176640001']. |
134 self test:[(t1 perform:'*' asSymbol with:t1) = 10000000000]. |
134 self test:[(20 factorial + 1000) printString = '2432902008176641000']. |
135 ]. |
135 |
136 SmallInteger maxBytes == 8 ifTrue:[ |
136 |
137 self test:[t1 * t1 == 10000000000]. |
137 "Large - small subtraction" |
138 self test:[(t1 perform:'*' asSymbol with:t1) == 10000000000]. |
138 self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999']. |
139 ]. |
139 self test:[(20 factorial - 10 factorial + 3628800) printString = '2432902008176640000']. |
140 |
140 |
141 self test:[(t1 * t1) printString = '10000000000']. |
141 " |
142 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000']. |
142 self testLargeAddition |
143 |
143 " |
144 t1 := 1000000. |
144 |
145 self test:[(t1 * t1) printString = '1000000000000']. |
145 "Modified: / 20.5.1999 / 09:41:19 / cg" |
146 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000']. |
146 ! |
147 |
147 |
148 t1 := 10000000. |
148 testLargeDivision |
149 self test:[(t1 * t1) printString = '100000000000000']. |
149 |t| |
150 self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000000000']. |
150 |
151 |
|
152 t1 := 100000000. |
|
153 self test:[(t1 * t1) printString = '10000000000000000']. |
|
154 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000000000']. |
|
155 |
|
156 t1 := 1000000000. |
|
157 self test:[(t1 * t1) printString = '1000000000000000000']. |
|
158 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000000000']. |
|
159 |
|
160 |
|
161 "Large * SmallInt multiplication" |
|
162 self test:[10 factorial printString = '3628800']. |
|
163 self test:[20 factorial printString = '2432902008176640000']. |
|
164 self test:[100 factorial printString = '93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000']. |
|
165 self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000']. |
|
166 |
|
167 "Large * Large multiplication" |
|
168 self test:[(20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000']. |
|
169 t := 20 factorial. |
151 t := 20 factorial. |
170 |
152 |
171 "Large // SmallInt division" |
153 "Large // SmallInt division" |
172 t := t // 20. |
154 t := t // 20. |
173 self test:[t printString = 19 factorial printString]. |
155 self test:[t printString = 19 factorial printString]. |
194 "Large // Large division" |
176 "Large // Large division" |
195 self test:[(10000 factorial / 9999 factorial) == 10000]. |
177 self test:[(10000 factorial / 9999 factorial) == 10000]. |
196 self test:[(20 factorial / 19 factorial) == 20]. |
178 self test:[(20 factorial / 19 factorial) == 20]. |
197 self test:[(20 factorial * 21 / 20 / 21) = (19 factorial)]. |
179 self test:[(20 factorial * 21 / 20 / 21) = (19 factorial)]. |
198 |
180 |
199 "Large + Large addition" |
181 " |
200 self testReading1. |
182 self testLargeDivision |
201 |
183 " |
202 self test:[(20 factorial + 20 factorial) printString = '4865804016353280000']. |
184 |
203 self test:[(20 factorial + 1) printString = '2432902008176640001']. |
185 "Modified: / 20.5.1999 / 09:41:19 / cg" |
204 self test:[(20 factorial + 1000) printString = '2432902008176641000']. |
186 ! |
205 |
187 |
206 |
188 testLargeMultiplication |
207 "Large - small subtraction" |
189 |t1| |
208 self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999']. |
190 |
209 self test:[(20 factorial - 10 factorial + 3628800) printString = '2432902008176640000']. |
191 "multiplication" |
210 |
192 t1 := 100. |
211 " |
193 self test:[t1 * t1 == 10000]. |
212 self test1 |
194 self test:[(t1 perform:'*' asSymbol with:t1) == 10000]. |
|
195 self test:[(t1 * t1) printString = '10000']. |
|
196 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000']. |
|
197 |
|
198 t1 := 1000. |
|
199 self test:[t1 * t1 == 1000000]. |
|
200 self test:[(t1 perform:'*' asSymbol with:t1) == 1000000]. |
|
201 self test:[(t1 * t1) printString = '1000000']. |
|
202 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000']. |
|
203 |
|
204 t1 := 10000. |
|
205 self test:[t1 * t1 == 100000000]. |
|
206 self test:[(t1 perform:'*' asSymbol with:t1) == 100000000]. |
|
207 self test:[(t1 * t1) printString = '100000000']. |
|
208 self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000']. |
|
209 |
|
210 t1 := 100000. |
|
211 SmallInteger maxBytes == 4 ifTrue:[ |
|
212 self test:[t1 * t1 = 10000000000]. |
|
213 self test:[(t1 perform:'*' asSymbol with:t1) = 10000000000]. |
|
214 ]. |
|
215 SmallInteger maxBytes == 8 ifTrue:[ |
|
216 self test:[t1 * t1 == 10000000000]. |
|
217 self test:[(t1 perform:'*' asSymbol with:t1) == 10000000000]. |
|
218 ]. |
|
219 |
|
220 self test:[(t1 * t1) printString = '10000000000']. |
|
221 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000']. |
|
222 |
|
223 t1 := 1000000. |
|
224 self test:[(t1 * t1) printString = '1000000000000']. |
|
225 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000']. |
|
226 |
|
227 t1 := 10000000. |
|
228 self test:[(t1 * t1) printString = '100000000000000']. |
|
229 self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000000000']. |
|
230 |
|
231 t1 := 100000000. |
|
232 self test:[(t1 * t1) printString = '10000000000000000']. |
|
233 self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000000000']. |
|
234 |
|
235 t1 := 1000000000. |
|
236 self test:[(t1 * t1) printString = '1000000000000000000']. |
|
237 self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000000000']. |
|
238 |
|
239 |
|
240 "Large * SmallInt multiplication" |
|
241 self test:[10 factorial printString = '3628800']. |
|
242 self test:[20 factorial printString = '2432902008176640000']. |
|
243 self test:[100 factorial printString = '93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000']. |
|
244 self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000']. |
|
245 |
|
246 "Large * Large multiplication" |
|
247 self test:[(20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000']. |
|
248 |
|
249 " |
|
250 self testLargeMultiplication |
213 " |
251 " |
214 |
252 |
215 "Modified: / 20.5.1999 / 09:41:19 / cg" |
253 "Modified: / 20.5.1999 / 09:41:19 / cg" |
216 ! |
254 ! |
217 |
255 |