equal
deleted
inserted
replaced
41 !NumberTest methodsFor:'tests-concrete bugs'! |
41 !NumberTest methodsFor:'tests-concrete bugs'! |
42 |
42 |
43 test_eqNumberBug |
43 test_eqNumberBug |
44 "reported 09-09-2004; |
44 "reported 09-09-2004; |
45 stc generated wrong code for some inlined = - compare (shame)." |
45 stc generated wrong code for some inlined = - compare (shame)." |
|
46 |
|
47 (Helper |
|
48 isStcCompiledMethod:#test_eqNumberBug |
|
49 in:self) ifTrue:[ |
|
50 self |
|
51 skipIf:true |
|
52 description:'#compile is not available in stand alone apps'. |
|
53 ]. |
46 |
54 |
47 Class withoutUpdatingChangesDo:[ |
55 Class withoutUpdatingChangesDo:[ |
48 self class |
56 self class |
49 compile: |
57 compile: |
50 'testEQ |
58 'testEQ |