Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.112.mcz
==================== Summary ====================
Name: KernelTests-nice.112 Author: nice Time: 27 November 2009, 7:46:37 am UUID: 9f37959a-ff43-cf46-899c-c5fc19204d66 Ancestors: KernelTests-ul.111
Grab a few tests from Pharo
=============== Diff against KernelTests-ul.111 ===============
Item was added: + ----- Method: UndefinedObjectTest>>testAllInstances (in category 'tests - Class Methods') ----- + testAllInstances + self assert: UndefinedObject allInstances size = 1 description: 'There should be a single instance of UndefinedObject'. + self assert: (UndefinedObject allInstances includes: nil) description: 'nil should be an instance of UndefinedObject'.!
Item was changed: ----- Method: FloatTest>>testStoreBase16 (in category 'printing') ----- testStoreBase16 "This bug was reported in mantis http://bugs.squeak.org/view.php?id=6695"
self assert: (20.0 storeStringBase: 16) = '16r14.0' + description: 'the radix prefix should not be omitted, except in base 10'! - description: 'the radix prefix should not be omitted'!
Item was added: + ----- Method: IntegerTest>>testLowBit (in category 'tests - bitLogic') ----- + testLowBit + | suite | + + suite := (0 to: 1024) asArray , #(16rFDFD 16rFFFF 16r1000 16r1000000 16r1000001 16r70000000 16r7AFAFAFA ) , {SmallInteger maxVal . SmallInteger maxVal+1}. + suite := suite , (suite collect: [:e | e raisedTo: 20]). + + suite do: [:anInteger | + | lowBit | + lowBit := (anInteger respondsTo: #bitAt:) + ifTrue: [(1 to: anInteger highBit) detect: [:bitIndex | (anInteger bitAt: bitIndex) ~= 0] ifNone: [0]] + ifFalse: [(1 to: anInteger highBit) detect: [:bitIndex | (anInteger bitAnd: (1 bitShift: bitIndex-1)) ~= 0] ifNone: [0]]. + self assert: anInteger lowBit = lowBit. + self assert: anInteger negated lowBit = lowBit].!
Item was added: + ----- Method: IntegerTest>>testHighBit (in category 'tests - bitLogic') ----- + testHighBit + | suite | + + suite := (0 to: 1024) asArray , #(16rFDFD 16rFFFF 16r1000 16r1000000 16r1000001 16r70000000 16r7AFAFAFA ) , {SmallInteger maxVal . SmallInteger maxVal+1}. + suite := suite , (suite collect: [:e | e raisedTo: 20]). + + suite do: [:anInteger | + | highBit shifted | + highBit := 0. + shifted := 1. + [shifted > anInteger] whileFalse: [highBit := highBit+1. shifted := shifted bitShift: 1]. + self assert: anInteger highBit = highBit].!
Item was added: + ----- Method: IntegerTest>>testIsPowerOfTwoM6873 (in category 'tests - basic') ----- + testIsPowerOfTwoM6873 + "This is a non regression test for http://bugs.squeak.org/view.php?id=6873" + + self deny: ((1 to: 80) anySatisfy: [:n | (2 raisedTo: n) negated isPowerOfTwo]) + description: 'A negative integer cannot be a power of two'.!
squeak-dev@lists.squeakfoundation.org