RegressionTests__FloatTest.st
changeset 200 081859450ba4
parent 199 0a895cfee047
child 201 a906a3b5feff
equal deleted inserted replaced
199:0a895cfee047 200:081859450ba4
   308     self assert:( 2.0 asLongFloat = 2.0 asLongFloat ).
   308     self assert:( 2.0 asLongFloat = 2.0 asLongFloat ).
   309 
   309 
   310     self assert:( 2 asLongFloat = 2 ).
   310     self assert:( 2 asLongFloat = 2 ).
   311     self assert:( 2 asLongFloat = 2.0 asShortFloat ).
   311     self assert:( 2 asLongFloat = 2.0 asShortFloat ).
   312     self assert:( 2 asLongFloat = 2.0 asLongFloat ).
   312     self assert:( 2 asLongFloat = 2.0 asLongFloat ).
       
   313 
       
   314     self assert:( 200000000000000000000.0 = 200000000000000000000 ).
       
   315     self assert:( 200000000000000000000.0 asLongFloat = 200000000000000000000 ).
       
   316     self assert:( 200000000000000000000.0 asShortFloat = 200000000000000000000 ).
       
   317 
       
   318     self assert:( 200000000000000000000 = 200000000000000000000.0).
       
   319     self assert:( 200000000000000000000 = 200000000000000000000.0 asLongFloat ).
       
   320     self assert:( 200000000000000000000 = 200000000000000000000.0 asShortFloat ).
       
   321 
       
   322 
       
   323     self assert:( 2.0 < 3 ).
       
   324     self assert:( 2.0 < 3.0 asShortFloat ).
       
   325     self assert:( 2.0 < 3.0 asLongFloat ).
       
   326 
       
   327     self assert:( 2.0 asShortFloat < 3 ).
       
   328     self assert:( 2.0 asShortFloat < 3.0 asShortFloat ).
       
   329     self assert:( 2.0 asShortFloat < 3.0 asLongFloat ).
       
   330 
       
   331     self assert:( 2.0 asLongFloat < 3 ).
       
   332     self assert:( 2.0 asLongFloat < 3.0 asShortFloat ).
       
   333     self assert:( 2.0 asLongFloat < 3.0 asLongFloat ).
       
   334 
       
   335     self assert:( 2 asLongFloat < 3 ).
       
   336     self assert:( 2 asLongFloat < 3.0 asShortFloat ).
       
   337     self assert:( 2 asLongFloat < 3.0 asLongFloat ).
       
   338 
       
   339     self assert:( 200000000000000000000.0 < 200000100000000000000 ).
       
   340     self assert:( 200000000000000000000.0 asLongFloat < 200000000000000000001 ).
       
   341     self assert:( 200000000000000000000.0 asShortFloat < 200001000000000000000 ).
       
   342 
       
   343     self assert:( 200000000000000000000 < 200001000000000000000.0).
       
   344     self assert:( 200000000000000000000 < 200001000000000000000.0 asLongFloat ).
       
   345     self assert:( 200000000000000000000 < 200001000000000000000.0 asShortFloat ).
       
   346 
       
   347 
       
   348     self assert:( 2.0 <= 3 ).
       
   349     self assert:( 2.0 <= 2 ).
       
   350     self assert:( 2.0 <= 3.0 asShortFloat ).
       
   351     self assert:( 2.0 <= 2.0 asShortFloat ).
       
   352     self assert:( 2.0 <= 3.0 asLongFloat ).
       
   353     self assert:( 2.0 <= 2.0 asLongFloat ).
       
   354 
       
   355     self assert:( 2.0 asShortFloat <= 3 ).
       
   356     self assert:( 2.0 asShortFloat <= 2 ).
       
   357     self assert:( 2.0 asShortFloat <= 3.0 asShortFloat ).
       
   358     self assert:( 2.0 asShortFloat <= 2.0 asShortFloat ).
       
   359     self assert:( 2.0 asShortFloat <= 3.0 asLongFloat ).
       
   360     self assert:( 2.0 asShortFloat <= 2.0 asLongFloat ).
       
   361 
       
   362     self assert:( 2.0 asLongFloat <= 3 ).
       
   363     self assert:( 2.0 asLongFloat <= 2 ).
       
   364     self assert:( 2.0 asLongFloat <= 3.0 asShortFloat ).
       
   365     self assert:( 2.0 asLongFloat <= 2.0 asShortFloat ).
       
   366     self assert:( 2.0 asLongFloat <= 3.0 asLongFloat ).
       
   367     self assert:( 2.0 asLongFloat <= 2.0 asLongFloat ).
       
   368 
       
   369     self assert:( 2 asLongFloat <= 3 ).
       
   370     self assert:( 2 asLongFloat <= 2 ).
       
   371     self assert:( 2 asLongFloat <= 3.0 asShortFloat ).
       
   372     self assert:( 2 asLongFloat <= 2.0 asShortFloat ).
       
   373     self assert:( 2 asLongFloat <= 3.0 asLongFloat ).
       
   374     self assert:( 2 asLongFloat <= 2.0 asLongFloat ).
       
   375 
       
   376     self assert:( 200000000000000000000.0 <= 200000100000000000000 ).
       
   377     self assert:( 200000000000000000000.0 <= 200000000000000000000 ).
       
   378     self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000001 ).
       
   379     self assert:( 200000000000000000000.0 asLongFloat <= 200000000000000000000 ).
       
   380     self assert:( 200000000000000000000.0 asShortFloat <= 200001000000000000000 ).
       
   381     self assert:( 200000000000000000000.0 asShortFloat <= 200000000000000000000 ).
       
   382 
       
   383     self assert:( 200000000000000000000 <= 200001000000000000000.0).
       
   384     self assert:( 200000000000000000000 <= 200000000000000000000.0).
       
   385     self assert:( 200000000000000000000 <= 200001000000000000000.0 asLongFloat ).
       
   386     self assert:( 200000000000000000000 <= 200000000000000000000.0 asLongFloat ).
       
   387     self assert:( 200000000000000000000 <= 200001000000000000000.0 asShortFloat ).
       
   388     self assert:( 200000000000000000000 <= 200000000000000000000.0 asShortFloat ).
   313 
   389 
   314     "
   390     "
   315      self basicNew test05_Comparing
   391      self basicNew test05_Comparing
   316     "
   392     "
   317 !
   393 !