The Inbox: SUnitGUI-eem.56.mcz

A new version of SUnitGUI was added to project The Inbox:
http://source.squeak.org/inbox/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!