diff -r bfbf845df5cf -r 60269925599c RegressionTests__IntegerTest.st
--- 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