[squeak-dev] The Trunk: SUnitGUI-ul.67.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 20 11:54:37 UTC 2017


Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-ul.67.mcz

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

Name: SUnitGUI-ul.67
Author: ul
Time: 20 March 2017, 11:50:13.109421 am
UUID: 7d43abdd-61eb-4315-9ed9-15e262eecfc1
Ancestors: SUnitGUI-eem.66

- TestRunner >> #updateClasses is used initialize the value of classIndex to 0
- applied Schwartzian transform to the class sorter

=============== Diff against SUnitGUI-eem.66 ===============

Item was changed:
  ----- Method: TestRunner>>sortClass:before: (in category 'utilities') -----
+ sortClass: firstHierarchyList before: secondHierarchyList
+ 
+ 	1 to: (firstHierarchyList size min: secondHierarchyList size) do: [ :index | 
+ 		(firstHierarchyList at: index) == (secondHierarchyList at: index)
+ 			ifFalse: [ ^(firstHierarchyList at: index) name <= (secondHierarchyList at: index) name ] ].
+ 	^secondHierarchyList includes: firstHierarchyList last.!
- sortClass: aFirstClass before: aSecondClass
- 	| first second |
- 	first := aFirstClass withAllSuperclasses reversed.
- 	second := aSecondClass withAllSuperclasses reversed.
- 	1 to: (first size min: second size) do: [ :index | 
- 		(first at: index) == (second at: index)
- 			ifFalse: [ ^ (first at: index) name <= (second at: index) name ] ].
- 	^ second includes: aFirstClass.!

Item was changed:
  ----- Method: TestRunner>>updateClasses (in category 'updating') -----
  updateClasses
+ 
  	| classesForCategories |
  	classesForCategories := self findClassesForCategories: categoriesSelected.
  	classes := classesForCategories asArray
+ 		replace: [ :class | class withAllSuperclasses reverseInPlace ];
+ 		sort: [ :a :b | self sortClass: a before: b ];
+ 		replace: [ :hierarchyList | hierarchyList last ].
+ 	classesSelected := classesSelected
+ 		ifNil: [ classesForCategories ]
+ 		ifNotNil: [ 
- 		sort: [ :a :b | self sortClass: a before: b ].
- 	classesSelected := classesSelected isNil
- 		ifTrue: [ classesForCategories ]
- 		ifFalse: [ 
  			classesSelected
  				select: [ :each | classesForCategories includes: each ] ].
+ 	classIndex
+ 		ifNil: [ classIndex := 0 ]
+ 		ifNotNil: [
+ 			(classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse: [
+ 				classIndex := 0 ] ].
+ 	self 
+ 		changed: #classList;
+ 		changed: #classSelected;
+ 		changed: #hasRunnable!
- 	classIndex isInteger ifTrue:
- 		[(classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse:
- 			[classIndex := 0]].
- 	self changed: #classList; changed: #classSelected; changed: #hasRunnable.!



More information about the Squeak-dev mailing list