RegressionTests__IEEEFloatTest.st
changeset 2464 fccea2dd0aef
parent 2462 695bfe3c2283
child 2468 0813f637871b
equal deleted inserted replaced
2463:583271c46ad1 2464:fccea2dd0aef
   301     self assert:( 0.0 asIEEEFloat = -0.0 asIEEEFloat).
   301     self assert:( 0.0 asIEEEFloat = -0.0 asIEEEFloat).
   302     self assert:( 0.0 asIEEEFloat = 0.0).
   302     self assert:( 0.0 asIEEEFloat = 0.0).
   303     self assert:( 0.0 asIEEEFloat = -0.0).
   303     self assert:( 0.0 asIEEEFloat = -0.0).
   304     self assert:( -0.0 asIEEEFloat = 0.0).
   304     self assert:( -0.0 asIEEEFloat = 0.0).
   305     self assert:( -0.0 asIEEEFloat = -0.0).
   305     self assert:( -0.0 asIEEEFloat = -0.0).
       
   306 
       
   307     self assert:(0.0 < 0.0 asIEEEFloat) not.
       
   308     self assert:(0.0 > 0.0 asIEEEFloat) not.
       
   309     self assert:(0.0 = 0.0 asIEEEFloat).
       
   310 
       
   311     -0.0 > 0.0 asIEEEFloat.
       
   312     self assert:(-0.0 < 0.0 asIEEEFloat) not.
       
   313     self assert:(-0.0 > 0.0 asIEEEFloat) not.
       
   314     self assert:(-0.0 = 0.0 asIEEEFloat).
       
   315 
       
   316     self assert:(0.0 asIEEEFloat < 0.0) not.
       
   317     self assert:(0.0 asIEEEFloat > 0.0) not.
       
   318     self assert:(0.0 asIEEEFloat = 0.0).
       
   319 
       
   320     self assert:(-0.0 asIEEEFloat < 0.0) not.
       
   321     self assert:(-0.0 asIEEEFloat > 0.0) not.
       
   322     self assert:(-0.0 asIEEEFloat = 0.0).
       
   323 
       
   324     self assert:(0.0 asIEEEFloat < 0.0 asIEEEFloat) not.
       
   325     self assert:(0.0 asIEEEFloat > 0.0 asIEEEFloat) not.
       
   326     self assert:(0.0 asIEEEFloat = 0.0 asIEEEFloat).
       
   327 
       
   328     self assert:(-0.0 asIEEEFloat < 0.0 asIEEEFloat) not.
       
   329     self assert:(-0.0 asIEEEFloat > 0.0 asIEEEFloat) not.
       
   330     self assert:(-0.0 asIEEEFloat = 0.0 asIEEEFloat).
       
   331 
       
   332     self assert:( -0.0 asIEEEFloat sign == 0).
       
   333     self assert:( -0.0 asIEEEFloat positive).
       
   334     self assert:( -0.0 asIEEEFloat strictlyPositive not).
       
   335     self assert:( -0.0 asIEEEFloat negative not).
       
   336 
       
   337     self assert:((IEEEFloat readFrom:'-0.0') sign == 0).
       
   338     self assert:( (IEEEFloat readFrom:'-0.0') positive).
       
   339     self assert:( (IEEEFloat readFrom:'-0.0') strictlyPositive not).
       
   340     self assert:( (IEEEFloat readFrom:'-0.0') negative not).
       
   341 
       
   342     self assert:( 0.0 asIEEEFloat sign == 0).
       
   343     self assert:( -0.0 asIEEEFloat sign == 0).
   306 
   344 
   307     self assert:( 1.0 asIEEEFloat = 1.0).
   345     self assert:( 1.0 asIEEEFloat = 1.0).
   308     self assert:( 1.0 asIEEEFloat = 1.0 asIEEEFloat).
   346     self assert:( 1.0 asIEEEFloat = 1.0 asIEEEFloat).
   309     self assert:( 1.0 asIEEEFloat = 1.0 asShortFloat).
   347     self assert:( 1.0 asIEEEFloat = 1.0 asShortFloat).
   310 
   348