equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'exept:regression' }" |
1 "{ Package: 'exept:regression' }" |
4 |
2 |
5 "{ NameSpace: RegressionTests }" |
3 "{ NameSpace: RegressionTests }" |
6 |
4 |
7 TestCase subclass:#FloatTest |
5 TestCase subclass:#FloatTest |
58 |
56 |
59 self assert: (Float zero = 0.0). |
57 self assert: (Float zero = 0.0). |
60 self assert: (ShortFloat zero = 0.0). |
58 self assert: (ShortFloat zero = 0.0). |
61 self assert: (LongFloat zero = 0.0). |
59 self assert: (LongFloat zero = 0.0). |
62 |
60 |
63 self assert:( (a := Float precision) = (b := self actualPrecisionOf:Float)). |
61 self assert:( (a := Float precision) = (b := self actualPrecisionOf:Float)) |
64 self assert:( (a := ShortFloat precision) = (b := self actualPrecisionOf:ShortFloat)). |
62 description:('Float precision: %1 ~~ actual: %2' bindWith:a with:b). |
65 self assert:( (a := LongFloat precision) = (b := self actualPrecisionOf:LongFloat)). |
63 self assert:( (a := ShortFloat precision) = (b := self actualPrecisionOf:ShortFloat)) |
|
64 description:('ShortFloat precision: %1 ~~ actual: %2' bindWith:a with:b). |
|
65 self assert:( (a := LongFloat precision) = (b := self actualPrecisionOf:LongFloat)) |
|
66 description:('LongFloat precision: %1 ~~ actual: %2' bindWith:a with:b). |
66 |
67 |
67 " |
68 " |
68 self basicNew test00_Precision |
69 self basicNew test00_Precision |
69 " |
70 " |
70 |
71 |