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'.!