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?'.!