The Trunk: SUnitGUI-ul.67.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

The Trunk: SUnitGUI-ul.67.mcz

commits-2
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.!


Loading...