[Pkg] The Trunk: SUnitGUI-ct.70.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 14 14:56:42 UTC 2019
Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-ct.70.mcz
==================== Summary ====================
Name: SUnitGUI-ct.70
Author: ct
Time: 31 May 2019, 2:15:26.862053 pm
UUID: 44154dfb-d0a5-e841-9b8e-826248842855
Ancestors: SUnitGUI-tpr.69
Add convenience method (#newForSuite:) for instance creation of TestRunner.
=============== Diff against SUnitGUI-tpr.69 ===============
Item was added:
+ ----- Method: TestRunner class>>newForSuite: (in category 'instance-creation') -----
+ newForSuite: aSuite
+
+ | runner classes categories |
+ runner := TestRunner new.
+ classes := aSuite tests asSet collect: #class.
+ categories := classes collect: #category.
+ ^ runner
+ filterCategoriesBy: ((categories collect: #asString) asStringByDelimiter: $;);
+ filterClassesBy: ((classes collect: #asString) asStringByDelimiter: $;);
+ yourself!
Item was changed:
----- Method: TestRunner>>filterCategories (in category 'accessing-categories') -----
filterCategories
| pattern |
pattern := UIManager default
request: 'Pattern(s) to select categories:\ (separate patterns with '';'')' withCRs
initialAnswer: (categoryPattern ifNil: ['*']).
(pattern isNil or: [pattern isEmpty]) ifTrue:
[^self].
+ self filterCategoriesBy: pattern!
- categoriesSelected := ((categoryPattern := pattern) subStrings: ';')
- inject: Set new
- into: [:matches :subPattern|
- matches
- addAll: (categories select: [ :each | subPattern match: each]);
- yourself].
- self changed: #allSelections; changed: #categorySelected; updateClasses!
Item was added:
+ ----- Method: TestRunner>>filterCategoriesBy: (in category 'accessing-categories') -----
+ filterCategoriesBy: aPattern
+ categoriesSelected := ((categoryPattern := aPattern) subStrings: ';')
+ inject: Set new
+ into: [:matches :subPattern|
+ matches
+ addAll: (categories select: [ :each | subPattern match: each]);
+ yourself].
+ self changed: #allSelections; changed: #categorySelected; updateClasses!
Item was changed:
----- Method: TestRunner>>filterClasses (in category 'accessing-classes') -----
filterClasses
| pattern |
pattern := UIManager default
request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs
initialAnswer: (classPattern ifNil: '*').
(pattern isNil or: [pattern isEmpty]) ifTrue:
[^self].
+ self filterClassesBy: pattern!
- classesSelected := ((classPattern := pattern) subStrings: ';')
- inject: Set new
- into: [:matches :subPattern|
- matches
- addAll: (classes select: [ :each | subPattern match: each name]);
- yourself].
- self
- changed: #allSelections;
- changed: #classSelected;
- changed: #hasRunnable!
Item was added:
+ ----- Method: TestRunner>>filterClassesBy: (in category 'accessing-classes') -----
+ filterClassesBy: aPattern
+ classesSelected := ((classPattern := aPattern) subStrings: ';')
+ inject: Set new
+ into: [:matches :subPattern|
+ matches
+ addAll: (classes select: [ :each | subPattern match: each name]);
+ yourself].
+ self
+ changed: #allSelections;
+ changed: #classSelected;
+ changed: #hasRunnable!
More information about the Packages
mailing list