[squeak-dev] The Trunk: Tests-mt.414.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 2 07:22:13 UTC 2019


Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.414.mcz

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

Name: Tests-mt.414
Author: mt
Time: 2 August 2019, 9:22:12.059774 am
UUID: 0be66466-bc31-9d4d-bfd4-0862b63bbfcc
Ancestors: Tests-ul.413

Updates tests for system navigation. Use TGriffle instead of Griffle because only TGriffle has a method with actual sends in it. Drop the #+ filter because it has no effect and there was no other reason stated in the (missing) comments.

=============== Diff against Tests-ul.413 ===============

Item was changed:
  ----- Method: SystemNavigationTest>>testAllSentMessagesWithout (in category 'tests') -----
  testAllSentMessagesWithout
  
  	self 
  		assert: (#(foo bar) asIdentitySet
  			addAll: Smalltalk presumedSentMessages;
  			addAll: Smalltalk specialSelectorNames;
  			yourself)
+ 		equals: (sysNav allSentMessagesWithout: {{}. {}}).
+ 		
+ 	self 
+ 		assert: (IdentitySet new
+ 			addAll: Smalltalk presumedSentMessages;
+ 			addAll: Smalltalk specialSelectorNames;
+ 			yourself)
+ 		equals: (sysNav allSentMessagesWithout: {{env at: #TGriffle}. {}}).!
- 		equals: (sysNav allSentMessagesWithout: {{env at: #Griffle}. {#+}}).!

Item was changed:
  ----- Method: SystemNavigationTest>>testAllUnusedClassesWithout (in category 'tests') -----
  testAllUnusedClassesWithout
+ 	
+ 	self
+ 		assert: (IdentitySet with: #Unused)
+ 		equals: ((SystemNavigation for: env) allUnusedClassesWithout: {{}. {}}).
+ 		
+ 	"The classes passed to #allUnusedClassesWithout: are not filtered from the list. They're classes whose methods are not examined for global references."
+ 	self
+ 		deny: ((SystemNavigation for: env) allUnusedClassesWithout: {{#Unused}. {}}) isEmpty
+ 		description: 'Where did Unused go?'.!
- 	self assert: (IdentitySet with: #Unused) equals: ((SystemNavigation for: env) allUnusedClassesWithout: {{}. {}}).
- "The classes passed to #allUnusedClassesWithout: are not filtered from the list. They're classes whose methods are not examined for global references."
- 	self deny: ((SystemNavigation for: env) allUnusedClassesWithout: {{#Unused}. {}}) isEmpty description: 'Where did Unused go?'.!



More information about the Squeak-dev mailing list