equal
deleted
inserted
replaced
282 self assert:( (JITTest new add2:1.0) = 2.0 ). |
282 self assert:( (JITTest new add2:1.0) = 2.0 ). |
283 self assert:( (JITTest new add2:1000.0) = 1001.0 ). |
283 self assert:( (JITTest new add2:1000.0) = 1001.0 ). |
284 |
284 |
285 " |
285 " |
286 self basicNew testAdd1 |
286 self basicNew testAdd1 |
287 " |
|
288 ! |
|
289 |
|
290 testFailingValueHolderCode |
|
291 self assert:(JITTest new tstValueHolderCode value = Date tomorrow). |
|
292 self class recompile:#tstValueHolderCode. |
|
293 self assert:(JITTest new tstValueHolderCode value = Date tomorrow). |
|
294 |
|
295 " |
|
296 self basicNew testFailingValueHolderCode |
|
297 " |
287 " |
298 ! ! |
288 ! ! |
299 |
289 |
300 !JITTest methodsFor:'public - test - blocks'! |
290 !JITTest methodsFor:'public - test - blocks'! |
301 |
291 |
497 self new testAndGreater2 |
487 self new testAndGreater2 |
498 " |
488 " |
499 |
489 |
500 "Created: / 16.11.2001 / 00:08:49 / cg" |
490 "Created: / 16.11.2001 / 00:08:49 / cg" |
501 "Modified: / 16.11.2001 / 00:09:29 / cg" |
491 "Modified: / 16.11.2001 / 00:09:29 / cg" |
|
492 ! |
|
493 |
|
494 testFailingValueHolderCode |
|
495 self shouldnt:[ |
|
496 JITTest new tstValueHolderCode1. |
|
497 ] raise:Exception. |
|
498 self assert:(JITTest new tstValueHolderCode1 value = Date tomorrow). |
|
499 self class recompile:#tstValueHolderCode1. |
|
500 self shouldnt:[ |
|
501 JITTest new tstValueHolderCode1. |
|
502 ] raise:Exception. |
|
503 self assert:(JITTest new tstValueHolderCode1 value = Date tomorrow). |
|
504 |
|
505 self shouldnt:[ |
|
506 JITTest new tstValueHolderCode2. |
|
507 ] raise:Exception. |
|
508 self class recompile:#tstValueHolderCode2. |
|
509 self shouldnt:[ |
|
510 JITTest new tstValueHolderCode2. |
|
511 ] raise:Exception. |
|
512 |
|
513 " |
|
514 self basicNew testFailingValueHolderCode |
|
515 " |
502 ! ! |
516 ! ! |
503 |
517 |
504 !JITTest methodsFor:'test - arithmetic'! |
518 !JITTest methodsFor:'test - arithmetic'! |
505 |
519 |
506 add1:arg |
520 add1:arg |
2148 " |
2162 " |
2149 self new testOddEven1 |
2163 self new testOddEven1 |
2150 " |
2164 " |
2151 ! |
2165 ! |
2152 |
2166 |
2153 tstValueHolderCode |
2167 tstValueHolderCode1 |
|
2168 |v| |
|
2169 |
|
2170 v := ValueHolder new. |
|
2171 |
|
2172 v value:(Date today). |
|
2173 v value:(Date today + 1). |
|
2174 |
|
2175 " |
|
2176 self new tstValueHolderCode1 |
|
2177 " |
|
2178 ! |
|
2179 |
|
2180 tstValueHolderCode2 |
2154 |v| |
2181 |v| |
2155 |
2182 |
2156 v := ValueHolder new. |
2183 v := ValueHolder new. |
2157 |
2184 |
2158 v value:(Date today). |
2185 v value:(Date today). |
2159 v value:(Date today + 1). |
2186 v value:(Date today + 1). |
2160 ^ v. |
2187 ^ v. |
2161 |
2188 |
2162 " |
2189 " |
2163 self new tstValueHolderCode |
2190 self new tstValueHolderCode2 |
2164 " |
2191 " |
2165 ! ! |
2192 ! ! |
2166 |
2193 |
2167 !JITTest methodsFor:'tests - args'! |
2194 !JITTest methodsFor:'tests - args'! |
2168 |
2195 |