[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