Eliot Miranda uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-eem.56.mcz==================== Summary ====================
Name: SUnitGUI-eem.56
Author: eem
Time: 20 September 2012, 2:04:20.328 pm
UUID: c155ae36-4f30-4a86-9ce5-2b1c8dd3de40
Ancestors: SUnitGUI-eem.53
Filter prompt needs to check for both nil and empty string
to prevent cancel from destroying current patterns.
=============== Diff against SUnitGUI-eem.53 ===============
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].
- pattern isNil ifTrue: [ ^ self ].
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 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].
- pattern isNil ifTrue: [ ^ self ].
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!