#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Mon, 02 Dec 2019 11:16:24 +0100
changeset 2455 594c867063b7
parent 2454 7d1bfada3e52
child 2456 081734105794
#QUALITY by cg class: RegressionTests::IntegerTest changed: #testHighBitLowBit
RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Mon Dec 02 10:04:03 2019 +0100
+++ b/RegressionTests__IntegerTest.st	Mon Dec 02 11:16:24 2019 +0100
@@ -4522,6 +4522,9 @@
     self assert:(( 16r10000000000000000 bitOr: 16r10000000000000000) lowBit = 65).
     self assert:(( (1 bitShift:1000) bitOr: (1 bitShift:1001)) lowBit = 1001).
 
+    self assert:2r00101000 lowBit == 4.
+    "/ self assert:2r-00101000 lowBit == 4.  -- not really
+
     "
      self basicNew testHighBitLowBit
     "