[squeak-dev] The Trunk: SUnitGUI-tpr.93.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 16 02:08:29 UTC 2023
tim Rowledge uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-tpr.93.mcz
==================== Summary ====================
Name: SUnitGUI-tpr.93
Author: tpr
Time: 15 January 2023, 6:08:28.334724 pm
UUID: e4a4c5b7-4ce8-4791-9758-3f4663b9ac2a
Ancestors: SUnitGUI-ct.92
Remove some variable shadowing
=============== Diff against SUnitGUI-ct.92 ===============
Item was changed:
----- Method: TestRunner>>findClassesForCategories: (in category 'utilities') -----
findClassesForCategories: aCollection
+ | items |
+ aCollection ifEmpty:
+ [^ self baseClass withAllSubclasses asSet ].
+ items := aCollection gather:
+ [:category |
+ (self environment organization listAtCategoryNamed: category)
+ collect: [ :each | self environment valueOf: each]
+ thenSelect: [ :each | each includesBehavior: self baseClass ]].
- | environment items |
- aCollection isEmpty
- ifTrue: [ ^ self baseClass withAllSubclasses asSet ].
- environment := self environment.
- items := aCollection gather: [ :category |
- ((environment organization listAtCategoryNamed: category)
- collect: [ :each | environment valueOf: each ])
- select: [ :each | each includesBehavior: self baseClass ] ].
^ items asSet.!
More information about the Squeak-dev
mailing list
|