--- a/RegressionTests__SmallIntegerTest.st	Wed Mar 20 12:48:12 2019 +0100
+++ b/RegressionTests__SmallIntegerTest.st	Wed Mar 20 14:57:25 2019 +0100
@@ -12,12 +12,6 @@
 !
 
 
-!SmallIntegerTest class methodsFor:'others'!
-
-version_CVS
-    ^ '$Header$'
-! !
-
 !SmallIntegerTest methodsFor:'tests-arithmetic'!
 
 testDivide
@@ -311,6 +305,29 @@
     ].
 
     "Modified (format): / 19-09-2017 / 16:29:36 / stefan"
+!
+
+testParity
+     self assert:(1 parityOdd).
+     self assert:(2 parityOdd).
+     self assert:(3 parityOdd not).
+     self assert:(16r20000000 parityOdd).
+     self assert:(16r30000000 parityOdd not).
+     self assert:(16r40000000 parityOdd).
+     self assert:(16r50000000 parityOdd not).
+     self assert:(16rFFFFFFFF parityOdd not).
+     self assert:(16r2000000000000000 parityOdd).
+     self assert:(16r3000000000000000 parityOdd not).
+     self assert:(16r4000000000000000 parityOdd).
+     self assert:(16r5000000000000000 parityOdd not).
+     self assert:(16rFFFFFFFFFFFFFFFF parityOdd not).
+     self assert:(16r200000000000000000000000 parityOdd).
+     self assert:(16r300000000000000000000000 parityOdd not).
+     self assert:(16r400000000000000000000000 parityOdd).
+     self assert:(16r500000000000000000000000 parityOdd not).
+     self assert:(16rFFFFFFFFFFFFFFFFFFFFFFFF parityOdd not).
+
+    "Created: / 20-03-2019 / 13:38:42 / Claus Gittinger"
 ! !
 
 !SmallIntegerTest methodsFor:'tests-class protocol'!
@@ -364,12 +381,18 @@
 !
 
 testNew
-    self should: [SmallInteger new] raise: TestResult error.
+    self should: [SmallInteger new] raise: Error.
+
+    "Modified (comment): / 20-03-2019 / 14:57:12 / Claus Gittinger"
 ! !
 
 !SmallIntegerTest class methodsFor:'documentation'!
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !