RegressionTests__IntegerTest.st
changeset 2500 5fb412ae3c50
parent 2499 cdd2a98147b9
--- a/RegressionTests__IntegerTest.st	Wed Dec 18 15:27:55 2019 +0100
+++ b/RegressionTests__IntegerTest.st	Wed Dec 18 15:41:13 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -5138,15 +5136,16 @@
     self assert:(1 ->0) = (Association key:1 value:0).    
     self assert:(1 ->1) = (Association key:1 value:1).  
 
-    self assert:(0->-0) = (Association key:0 value:0).
-    self assert:(0->-1) = (Association key:0 value:-1).
-    self assert:(0 ->-0) = (Association key:0 value:0).    
-    self assert:(0 ->-1) = (Association key:0 value:-1).
-
-    self assert:(1->-0) = (Association key:1 value:0).
-    self assert:(1->-1) = (Association key:1 value:-1).
-    self assert:(1 ->-0) = (Association key:1 value:0).    
-    self assert:(1 ->-1) = (Association key:1 value:-1).  
+    "/ undef behavior 
+"/    self assert:(0->-0) = (Association key:0 value:0).
+"/    self assert:(0->-1) = (Association key:0 value:-1).
+"/    self assert:(0 ->-0) = (Association key:0 value:0).    
+"/    self assert:(0 ->-1) = (Association key:0 value:-1).
+
+"/    self assert:(1->-0) = (Association key:1 value:0).
+"/    self assert:(1->-1) = (Association key:1 value:-1).
+"/    self assert:(1 ->-0) = (Association key:1 value:0).    
+"/    self assert:(1 ->-1) = (Association key:1 value:-1).  
 
     self assert:(-0->0) = (Association key:0 value:0).
     self assert:(-0->1) = (Association key:0 value:1).
@@ -5158,15 +5157,16 @@
     self assert:(-1 ->0) = (Association key:-1 value:0).    
     self assert:(-1 ->1) = (Association key:-1 value:1).   
 
-    self assert:(-0->-0) = (Association key:0 value:0).
-    self assert:(-0->-1) = (Association key:0 value:-1).
-    self assert:(-0 ->-0) = (Association key:0 value:0).    
-    self assert:(-0 ->-1) = (Association key:0 value:-1).   
-
-    self assert:(-1->-0) = (Association key:-1 value:0).     
-    self assert:(-1->-1) = (Association key:-1 value:-1).    
-    self assert:(-1 ->-0) = (Association key:-1 value:0).    
-    self assert:(-1 ->-1) = (Association key:-1 value:-1).  
+    "/ undef behavior 
+"/    self assert:(-0->-0) = (Association key:0 value:0).
+"/    self assert:(-0->-1) = (Association key:0 value:-1).
+"/    self assert:(-0 ->-0) = (Association key:0 value:0).    
+"/    self assert:(-0 ->-1) = (Association key:0 value:-1).   
+"/
+"/    self assert:(-1->-0) = (Association key:-1 value:0).     
+"/    self assert:(-1->-1) = (Association key:-1 value:-1).    
+"/    self assert:(-1 ->-0) = (Association key:-1 value:0).    
+"/    self assert:(-1 ->-1) = (Association key:-1 value:-1).  
 
     self assert:(0-> 0) = (Association key:0 value:0).
     self assert:(0-> 1) = (Association key:0 value:1).