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!