RegressionTests__FloatTest.st
changeset 2501 6ac1abaea8bc
parent 2498 5618f2d7566d
equal deleted inserted replaced
2500:5fb412ae3c50 2501:6ac1abaea8bc
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "{ Package: 'stx:goodies/regression' }"
     1 "{ Package: 'stx:goodies/regression' }"
     4 
     2 
     5 "{ NameSpace: RegressionTests }"
     3 "{ NameSpace: RegressionTests }"
     6 
     4 
     7 TestCase subclass:#FloatTest
     5 TestCase subclass:#FloatTest
  1081     self assert:(1.0->0.0) = (Association key:1 value:0).
  1079     self assert:(1.0->0.0) = (Association key:1 value:0).
  1082     self assert:(1.0->1.0) = (Association key:1 value:1).
  1080     self assert:(1.0->1.0) = (Association key:1 value:1).
  1083     self assert:(1.0 ->0.0) = (Association key:1 value:0).    
  1081     self assert:(1.0 ->0.0) = (Association key:1 value:0).    
  1084     self assert:(1.0 ->1.0) = (Association key:1 value:1).  
  1082     self assert:(1.0 ->1.0) = (Association key:1 value:1).  
  1085 
  1083 
  1086     self assert:(0.0->-0.0) = (Association key:0 value:0).
  1084     "/ undef behavior 
  1087     self assert:(0.0->-1.0) = (Association key:0 value:-1).
  1085 "/    self assert:(0.0->-0.0) = (Association key:0 value:0).
  1088     self assert:(0.0 ->-0.0) = (Association key:0 value:0).    
  1086 "/    self assert:(0.0->-1.0) = (Association key:0 value:-1).
  1089     self assert:(0.0 ->-1.0) = (Association key:0 value:-1).
  1087 "/    self assert:(0.0 ->-0.0) = (Association key:0 value:0).    
  1090 
  1088 "/    self assert:(0.0 ->-1.0) = (Association key:0 value:-1).
  1091     self assert:(1.0->-0.0) = (Association key:1 value:0).
  1089 "/
  1092     self assert:(1.0->-1.0) = (Association key:1 value:-1).
  1090 "/    self assert:(1.0->-0.0) = (Association key:1 value:0).
  1093     self assert:(1.0 ->-0.0) = (Association key:1 value:0).    
  1091 "/    self assert:(1.0->-1.0) = (Association key:1 value:-1).
  1094     self assert:(1.0 ->-1.0) = (Association key:1 value:-1).  
  1092 "/    self assert:(1.0 ->-0.0) = (Association key:1 value:0).    
       
  1093 "/    self assert:(1.0 ->-1.0) = (Association key:1 value:-1).  
  1095 
  1094 
  1096     self assert:(-0.0->0.0) = (Association key:0 value:0).
  1095     self assert:(-0.0->0.0) = (Association key:0 value:0).
  1097     self assert:(-0.0->1.0) = (Association key:0 value:1).
  1096     self assert:(-0.0->1.0) = (Association key:0 value:1).
  1098     self assert:(-0.0 ->0.0) = (Association key:0 value:0).    
  1097     self assert:(-0.0 ->0.0) = (Association key:0 value:0).    
  1099     self assert:(-0.0 ->1.0) = (Association key:0 value:1). 
  1098     self assert:(-0.0 ->1.0) = (Association key:0 value:1). 
  1101     self assert:(-1.0->0.0) = (Association key:-1 value:0). 
  1100     self assert:(-1.0->0.0) = (Association key:-1 value:0). 
  1102     self assert:(-1.0->1.0) = (Association key:-1 value:1). 
  1101     self assert:(-1.0->1.0) = (Association key:-1 value:1). 
  1103     self assert:(-1.0 ->0.0) = (Association key:-1 value:0).    
  1102     self assert:(-1.0 ->0.0) = (Association key:-1 value:0).    
  1104     self assert:(-1.0 ->1.0) = (Association key:-1 value:1).   
  1103     self assert:(-1.0 ->1.0) = (Association key:-1 value:1).   
  1105 
  1104 
  1106     self assert:(-0.0->-0.0) = (Association key:0 value:0).
  1105     "/ undef behavior 
  1107     self assert:(-0.0->-1.0) = (Association key:0 value:-1).
  1106 "/    self assert:(-0.0->-0.0) = (Association key:0 value:0).
  1108     self assert:(-0.0 ->-0.0) = (Association key:0 value:0).    
  1107 "/    self assert:(-0.0->-1.0) = (Association key:0 value:-1).
  1109     self assert:(-0.0 ->-1.0) = (Association key:0 value:-1).   
  1108 "/    self assert:(-0.0 ->-0.0) = (Association key:0 value:0).    
  1110 
  1109 "/    self assert:(-0.0 ->-1.0) = (Association key:0 value:-1).   
  1111     self assert:(-1.0->-0.0) = (Association key:-1 value:0).     
  1110 "/
  1112     self assert:(-1.0->-1.0) = (Association key:-1 value:-1).    
  1111 "/    self assert:(-1.0->-0.0) = (Association key:-1 value:0).     
  1113     self assert:(-1.0 ->-0.0) = (Association key:-1 value:0).    
  1112 "/    self assert:(-1.0->-1.0) = (Association key:-1 value:-1).    
  1114     self assert:(-1.0 ->-1.0) = (Association key:-1 value:-1).  
  1113 "/    self assert:(-1.0 ->-0.0) = (Association key:-1 value:0).    
       
  1114 "/    self assert:(-1.0 ->-1.0) = (Association key:-1 value:-1).  
  1115 
  1115 
  1116     self assert:(0.0-> 0.0) = (Association key:0 value:0).
  1116     self assert:(0.0-> 0.0) = (Association key:0 value:0).
  1117     self assert:(0.0-> 1.0) = (Association key:0 value:1).
  1117     self assert:(0.0-> 1.0) = (Association key:0 value:1).
  1118     self assert:(0.0 -> 0.0) = (Association key:0 value:0).    
  1118     self assert:(0.0 -> 0.0) = (Association key:0 value:0).    
  1119     self assert:(0.0 -> 1.0) = (Association key:0 value:1).
  1119     self assert:(0.0 -> 1.0) = (Association key:0 value:1).