Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-ul.406.mcz

==================== Summary ====================

Name: KernelTests-ul.406
Author: ul
Time: 13 September 2021, 8:16:42.113648 pm
UUID: 523fe4e9-6b1d-4f38-927b-59a7f5b433ca
Ancestors: KernelTests-ul.405

- added incomplete FloatTest >> #testIsPowerOfTwo
- fixed a bug in ObjectTest >> testIfNotNilDoDeprecation

=============== Diff against KernelTests-ul.405 ===============

Item was added:
+ ----- Method: FloatTest>>testIsPowerOfTwo (in category 'tests - characterization') -----
+ testIsPowerOfTwo
+ 
+ 	-1023 - 51 to: 1023 do: [ :each |
+ 		| n |
+ 		n := 1.0 timesTwoPower: each.
+ 		self 
+ 			assert: n isPowerOfTwo;
+ 			deny: n negated isPowerOfTwo ].
+ 	{ 0.0. 3.0. 0.3. Float nan. Float infinity } do: [ :each |
+ 		self
+ 			deny: each isPowerOfTwo;
+ 			deny: each negated isPowerOfTwo ].
+ 	!

Item was changed:
  ----- Method: ObjectTest>>testIfNotNilDoDeprecation (in category 'tests') -----
  testIfNotNilDoDeprecation
  
  	#(ifNotNilDo: #ifNil:ifNotNilDo: #ifNotNilDo:ifNil:) do: [ :selector |
  		| senders |
  		senders := self systemNavigation allCallsOn: selector.
  		self 
  			assert: senders size = 1
  			description: (String streamContents: [ :stream |
  				| thisSelector |
  				stream
  					nextPutAll: 'Unexpected senders of ';
  					print: selector;
  					nextPutAll: ': '.
  				thisSelector := thisContext method selector.
  				(senders reject: [ :each |
  					(each actualClass == self class
  						and: [ each selector == thisSelector ]) ])
  					do: [ :each | 
  						stream 
  							nextPutAll: each actualClass name;
  							nextPutAll: ' >> ';
  							print: each selector ]
+ 					separatedBy: [ stream nextPutAll: ', ' ] ]) ]!
- 					separatedBy: [ stream nextPut: ', ' ] ]) ]!