equal
deleted
inserted
replaced
3 "{ Package: 'stx:goodies/regression' }" |
3 "{ Package: 'stx:goodies/regression' }" |
4 |
4 |
5 "{ NameSpace: RegressionTests }" |
5 "{ NameSpace: RegressionTests }" |
6 |
6 |
7 TestCase subclass:#QuadFloatTest |
7 TestCase subclass:#QuadFloatTest |
8 instanceVariableNames:'longFloatToQuadFloatSupported' |
8 instanceVariableNames:'longFloatToQuadFloatSupported' |
9 classVariableNames:'' |
9 classVariableNames:'' |
10 poolDictionaries:'' |
10 poolDictionaries:'' |
11 category:'tests-Regression-Numbers' |
11 category:'tests-Regression-Numbers' |
12 ! |
12 ! |
13 |
13 |
14 !QuadFloatTest class methodsFor:'documentation'! |
14 !QuadFloatTest class methodsFor:'documentation'! |
15 |
15 |
16 documentation |
16 documentation |
307 "Modified: / 08-06-2019 / 13:53:32 / Claus Gittinger" |
307 "Modified: / 08-06-2019 / 13:53:32 / Claus Gittinger" |
308 ! |
308 ! |
309 |
309 |
310 test04_Arithmetic |
310 test04_Arithmetic |
311 self skipIf:(ExternalAddress pointerSize == 4) description:'only supported on 64bit machines'. |
311 self skipIf:(ExternalAddress pointerSize == 4) description:'only supported on 64bit machines'. |
|
312 |
|
313 self assert:( 1.0 asQuadFloat negated = -1.0 asQuadFloat). |
|
314 |
|
315 self assert:( 1.0 + 1.0 asQuadFloat) class == QuadFloat. |
312 |
316 |
313 self assert:( 1.0 asQuadFloat + 1.0 ) class == QuadFloat. |
317 self assert:( 1.0 asQuadFloat + 1.0 ) class == QuadFloat. |
314 self assert:( 1.0 asQuadFloat + 1.0 asShortFloat ) class == QuadFloat. |
318 self assert:( 1.0 asQuadFloat + 1.0 asShortFloat ) class == QuadFloat. |
315 self assert:( 1.0 asQuadFloat + 1.0 asFloat ) class == QuadFloat. |
319 self assert:( 1.0 asQuadFloat + 1.0 asFloat ) class == QuadFloat. |
316 self assert:( 1.0 asQuadFloat + 1 ) class == QuadFloat. |
320 self assert:( 1.0 asQuadFloat + 1 ) class == QuadFloat. |