RegressionTests__IntegerTest.st
changeset 2397 4ad7fc96b77d
parent 2395 36ac67677f1f
child 2428 fee50b3ccfa8
equal deleted inserted replaced
2396:86b690d8f903 2397:4ad7fc96b77d
  5242 
  5242 
  5243     "Created: / 27-04-2010 / 09:49:31 / cg"
  5243     "Created: / 27-04-2010 / 09:49:31 / cg"
  5244 !
  5244 !
  5245 
  5245 
  5246 testIsPowerOfTwo
  5246 testIsPowerOfTwo
  5247     self assert:(1 isPowerOfTwo).
  5247     self assert:(1 isPowerOf2).
  5248     self assert:(2 isPowerOfTwo).
  5248     self assert:(2 isPowerOf2).
  5249     self assert:(4 isPowerOfTwo).
  5249     self assert:(4 isPowerOf2).
  5250     self assert:(3 isPowerOfTwo not).
  5250     self assert:(3 isPowerOf2 not).
  5251     self assert:(16r100000000000000000000000 isPowerOfTwo).
  5251     self assert:(16r100000000000000000000000 isPowerOf2).
  5252     self assert:(16r300000000000000000000000 isPowerOfTwo not).
  5252     self assert:(16r300000000000000000000000 isPowerOf2 not).
  5253 
  5253 
  5254     "
  5254     "
  5255      self basicNew testIsPowerOfTwo
  5255      self basicNew testIsPowerOfTwo
  5256     "
  5256     "
  5257 
  5257