author | Claus Gittinger <cg@exept.de> |
Tue, 26 Oct 1999 23:53:26 +0200 | |
changeset 43 | 39107e74027a |
parent 42 | b7e57becd932 |
child 44 | 6c4a2e69ab1d |
--- a/RegressionTests__IntegerTest.st Tue Oct 26 22:57:36 1999 +0200 +++ b/RegressionTests__IntegerTest.st Tue Oct 26 23:53:26 1999 +0200 @@ -718,6 +718,14 @@ self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6250']. self test:[(n1 perform:'bitShift:' asSymbol with:-11) printString = '6250']. + + 1 to:10000 do:[:s | + self test:[ (1 bitShift:s) highBit == (s+1) ] + ]. + 1 to:10000 do:[:s | + self test:[ ((1 bitShift:s) - 1) highBit == s ] + ]. + " self testIntegerShifts "