#DOCUMENTATION by cg
class: RegressionTests::SmallIntegerTest
changed: #testNegation
--- a/RegressionTests__SmallIntegerTest.st Tue Feb 28 16:37:44 2017 +0100
+++ b/RegressionTests__SmallIntegerTest.st Tue Feb 28 16:42:12 2017 +0100
@@ -222,47 +222,55 @@
!
testNegation
- |i iN iNN|
+ |i iN iNN iNNN|
#(
- 16r3fffffff
- 16r7fffffff
- 16rffffffff
- 16r20000000
- 16r40000000
- 16r80000000
- 16r100000000
- 16r20000001
- 16r40000001
- 16r80000001
- 16r100000001
+ 16r1fffffff
+ 16r3fffffff
+ 16r7fffffff
+ 16rffffffff
+ 16r20000000
+ 16r40000000
+ 16r80000000
+ 16r100000000
+ 16r20000001
+ 16r40000001
+ 16r80000001
+ 16r100000001
- "/ for 64bit machines:
- 16r3fffffffffffffff
- 16r7fffffffffffffff
- 16rffffffffffffffff
- 16r2000000000000000
- 16r4000000000000000
- 16r8000000000000000
- 16r10000000000000000
- 16r2000000000000001
- 16r4000000000000001
- 16r8000000000000001
- 16r10000000000000001
+ "/ for 64bit machines:
+ 16r3fffffffffffffff
+ 16r7fffffffffffffff
+ 16rffffffffffffffff
+ 16r2000000000000000
+ 16r4000000000000000
+ 16r8000000000000000
+ 16r10000000000000000
+ 16r2000000000000001
+ 16r4000000000000001
+ 16r8000000000000001
+ 16r10000000000000001
) do:[:x |
- i := x.
- iN := i negated.
- iNN := iN negated.
- self assert:(i = iNN).
- i class == SmallInteger ifTrue:[
- self assert:(i == iNN).
- ].
+ i := x.
+ iN := i negated.
+ iNN := iN negated.
+ iNNN := iNN negated.
+ self assert:(i = iNN).
+ i class == SmallInteger ifTrue:[
+ self assert:(i == iNN).
+ ].
+ self assert:(iN = iNNN).
+ iN class == SmallInteger ifTrue:[
+ self assert:(iN == iNNN).
+ ].
].
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).
+
+ "Modified: / 28-02-2017 / 16:42:04 / cg"
! !
!SmallIntegerTest methodsFor:'tests-class protocol'!