hg/stx-goodies-regression: changeset 1306:9b2ba728b70e

author	Claus Gittinger <cg@exept.de>
	Mon, 01 Feb 2016 19:03:16 +0100
changeset 1306	9b2ba728b70e
parent 1305	d8800e68af7a
child 1307	f2b5a843d7df

#FEATURE class: RegressionTests::SmallIntegerTest changed: #testNegation

--- a/RegressionTests__SmallIntegerTest.st	Mon Feb 01 16:25:42 2016 +0100
+++ b/RegressionTests__SmallIntegerTest.st	Mon Feb 01 19:03:16 2016 +0100
@@ -132,6 +132,11 @@
             self assert:(i == iNN).
         ].
     ].
+    self assert:(SmallInteger maxVal negated class == SmallInteger).
+    self assert:(SmallInteger maxVal negated negated == SmallInteger maxVal).
+    
+    self assert:(SmallInteger maxVal negated -1 == SmallInteger minVal).
+    self assert:(SmallInteger minVal negated negated class == SmallInteger).
 ! !
 
 !SmallIntegerTest methodsFor:'tests-class protocol'!