author | Claus Gittinger <cg@exept.de> |
Mon, 02 Dec 2019 11:16:24 +0100 | |
changeset 2455 | 594c867063b7 |
parent 2454 | 7d1bfada3e52 |
child 2456 | 081734105794 |
--- 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 "