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: ', ' ] ]) ]!
packages@lists.squeakfoundation.org