--- a/RegressionTests__IntegerTest.st Sun May 26 10:16:01 2019 +0200
+++ b/RegressionTests__IntegerTest.st Mon May 27 08:43:50 2019 +0200
@@ -5160,6 +5160,29 @@
!IntegerTest methodsFor:'tests-bit fiddling'!
+testAnyBit
+ self assert:(0 anyBitOfMagnitudeFrom:1 to:1) not.
+ self assert:(1 anyBitOfMagnitudeFrom:1 to:1).
+ self assert:(1 anyBitOfMagnitudeFrom:2 to:2) not.
+ self assert:(1 anyBitOfMagnitudeFrom:1 to:10).
+ self assert:(1 anyBitOfMagnitudeFrom:2 to:10) not.
+
+ self assert:(128 anyBitOfMagnitudeFrom:1 to:7) not.
+ self assert:(128 anyBitOfMagnitudeFrom:1 to:8).
+ self assert:(128 anyBitOfMagnitudeFrom:8 to:16).
+ self assert:(128 anyBitOfMagnitudeFrom:1 to:24).
+
+ self assert:(256 anyBitOfMagnitudeFrom:1 to:7) not.
+ self assert:(256 anyBitOfMagnitudeFrom:1 to:8) not.
+ self assert:(256 anyBitOfMagnitudeFrom:9 to:9).
+ self assert:(256 anyBitOfMagnitudeFrom:4 to:9).
+ self assert:(256 anyBitOfMagnitudeFrom:9 to:25).
+ self assert:(256 anyBitOfMagnitudeFrom:8 to:16).
+ self assert:(256 anyBitOfMagnitudeFrom:1 to:24).
+
+ "Created: / 27-05-2019 / 08:39:19 / Claus Gittinger"
+!
+
testBitCount
#( 16r100000000
16r1000000000