[squeak-dev] The Inbox: KernelTests-ul.405.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Sep 3 14:22:29 UTC 2021
Levente Uzonyi uploaded a new version of KernelTests to project The Inbox:
http://source.squeak.org/inbox/KernelTests-ul.405.mcz
==================== Summary ====================
Name: KernelTests-ul.405
Author: ul
Time: 3 September 2021, 4:09:29.590259 pm
UUID: 48026890-9fb9-41cc-9ece-0d951fbc77e9
Ancestors: KernelTests-nice.404
- deprecate ifNotNilDo:, #ifNil:ifNotNilDo: and #ifNotNilDo:ifNil:
=============== Diff against KernelTests-nice.404 ===============
Item was added:
+ ----- 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 nextPut: ', ' ] ]) ]!
More information about the Squeak-dev
mailing list
|