hg/stx-goodies-regression: comparison RegressionTests_

equal deleted inserted replaced

-:5c6a32e00528
+:a2d6838ad6f6
-"{ Encoding: utf8 }"
 "{ Package: 'stx:goodies/regression' }"
 "{ NameSpace: RegressionTests }"
 TestCase subclass:#IntegerTest
 self assert:(n1 printString = '1073741823').
 self assert:(n2 printString = '-1073741823').
 "/ ---------------------
-n1 := 16rffffffff.
+SmallInteger maxBytes == 8 ifTrue:[
-n2 := n1 negated.
+n1 := 16rffffffff.
-n3 := n2 negated.
+n2 := n1 negated.
+n3 := n2 negated.
-self assert:(n1 class == SmallInteger).
-self assert:(n2 class == SmallInteger).
+self assert:(n1 class == SmallInteger).
-self assert:(n3 == n1).
+self assert:(n2 class == SmallInteger).
+self assert:(n3 == n1).
-self assert:(n1 = 16rfFFFFFFF).
-self assert:(n2 = -16rfFFFFFFF).
+self assert:(n1 = 16rfFFFFFFF).
-self assert:(n1 == 16rfFFFFFFF).
+self assert:(n2 = -16rfFFFFFFF).
-self assert:(n2 == -16rfFFFFFFF).
+self assert:(n1 == 16rfFFFFFFF).
-self assert:(n1 printString = '4294967295').
+self assert:(n2 == -16rfFFFFFFF).
-self assert:(n2 printString = '-4294967295').
+self assert:(n1 printString = '4294967295').
+self assert:(n2 printString = '-4294967295').
+].
 "/ ---------------------
 n1 := SmallInteger maxVal.
 n2 := n1 negated.
 n3 := n2 negated.
 ].
 "
 self basicNew testSmallIntegerNegation
 "
+"Modified: / 09-11-2016 / 15:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !IntegerTest methodsFor:'tests-class protocol'!
 testCreationFromBytes1
 ^ '$Header$'
 !
 version_CVS
 ^ '$Header$'
+!
+version_HG
+^ '$Changeset: <not expanded> $'
 ! !