[Pkg] The Trunk: SUnitGUI-eem.53.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-eem.53.mcz

==================== Summary ====================

Name: SUnitGUI-eem.53
Author: eem
Time: 20 September 2012, 11:07:56.257 am
UUID: 2a734976-4fc9-414d-8884-986f5bf9ff58
Ancestors: SUnitGUI-ul.52

Make TestRunner Filter... recognize multiple patterns
separated by semicolons.  Remember previous patterns
in subsequent prompts.

=============== Diff against SUnitGUI-ul.52 ===============

Item was changed:
  Object subclass: #TestRunner
+ 	instanceVariableNames: 'categories categoriesSelected classes classIndex classesSelected failedList failedSelected errorList errorSelected lastUpdate result previousRun categoryPattern classPattern'
- 	instanceVariableNames: 'categories categoriesSelected classes classIndex classesSelected failedList failedSelected errorList errorSelected lastUpdate result previousRun'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'SUnitGUI'!
  
  !TestRunner commentStamp: '<historical>' prior: 0!
  <lint: #ignore rule: #classNotReferenced rational: 'this view is only accessed from menus'>
  
  !

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: ['*']).
- 		request: 'Pattern to select categories:' 
- 		initialAnswer: '*'.
  	pattern isNil ifTrue: [ ^ self ].
+ 	categoriesSelected := ((categoryPattern := pattern) subStrings: ';')
+ 								inject: Set new
+ 								into: [:matches :subPattern|
+ 									matches
+ 										addAll: (categories select: [ :each | subPattern match: each]);
+ 										yourself].
- 	categoriesSelected := (categories 
- 		select: [ :each | pattern match: each ]) asSet.
  	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: '*').
- 		request: 'Pattern to select tests:' 
- 		initialAnswer: '*'.
  	pattern isNil ifTrue: [ ^ self ].
+ 	classesSelected := ((classPattern := pattern) subStrings: ';')
+ 							inject: Set new
+ 							into: [:matches :subPattern|
+ 								matches
+ 									addAll: (classes select: [ :each | subPattern match: each name]);
+ 									yourself].
- 	classesSelected := (classes select: [ :each | 
- 		pattern match: each name ]) asSet.
  	self
  		changed: #allSelections;
  		changed: #classSelected;
  		changed: #hasRunnable!