The Trunk: Tests-mt.414.mcz

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