Fix 13825. Create a new sorter for the completion engine .

src/HeuristicCompletion-Model/CoResultSet.class.st

@@ -15,7 +15,8 @@ Class {
 	#instVars : [
 		'results',
 		'fetcher',
-		'filter'
+		'filter',
+		'sorter'
 	],
 	#category : 'HeuristicCompletion-Model-Core',
 	#package : 'HeuristicCompletion-Model',
@@ -56,7 +57,7 @@ CoResultSet >> fetch: anInteger [
 
 	| newResults |
 	newResults := fetcher next: anInteger.
-	results addAll: newResults
+	results addAll: (sorter sortCompletionList: newResults)
 ]
 
 { #category : 'fetching' }
@@ -117,7 +118,8 @@ CoResultSet >> initialize [
 
 	super initialize.
 	results := OrderedCollection new.
-	filter := CoFilter empty
+	filter := CoFilter empty.
+	sorter := CompletionContext sorterClass new
 ]
 
 { #category : 'testing' }

src/HeuristicCompletion-Tests/CoCompletionEngineTest.class.st

@@ -1,6 +1,9 @@
 Class {
 	#name : 'CoCompletionEngineTest',
 	#superclass : 'CompletionEngineTest',
+	#instVars : [
+		'oldSort'
+	],
 	#category : 'HeuristicCompletion-Tests',
 	#package : 'HeuristicCompletion-Tests'
 }
@@ -28,6 +31,19 @@ CoCompletionEngineTest >> newCompletionEngine [
 	^ CoCompletionEngine new
 ]
 
+{ #category : 'accessing' }
+CoCompletionEngineTest >> setUp [
+	super setUp.
+	oldSort := CompletionContext sorterClass.
+	CompletionContext sorterClass: NoSorter.
+]
+
+{ #category : 'accessing' }
+CoCompletionEngineTest >> tearDown [
+	super tearDown.
+   CompletionContext sorterClass: oldSort.
+]
+
 { #category : 'tests - interaction' }
 CoCompletionEngineTest >> testCmdCtrlLeft [
 

src/NECompletion/CompletionSorter.class.st

@@ -21,7 +21,7 @@ CompletionSorter class >> kind [
 
 { #category : 'tools registry' }
 CompletionSorter class >> register [
-	CompletionContext sorterClass: AlphabeticSorter
+	CompletionContext sorterClass: SizeSorter
 ]
 
 { #category : 'accessing' }

src/NECompletion/NoSorter.class.st

@@ -0,0 +1,20 @@
+"
+I'm a class that do nothing in the suggestion list.
+
+I return the list created from the compltion engine.
+
+This class is created to pass the test.
+"
+Class {
+	#name : 'NoSorter',
+	#superclass : 'CompletionSorter',
+	#category : 'NECompletion-Sorting',
+	#package : 'NECompletion',
+	#tag : 'Sorting'
+}
+
+{ #category : 'sorting' }
+NoSorter >> sortCompletionList: anOrderedCollection [
+
+	^ anOrderedCollection
+]

src/NECompletion/SizeSorter.class.st

@@ -0,0 +1,20 @@
+"
+I'm a class that do sorting based on the size of the context itself.
+
+I return a list sorted by size.
+
+
+"
+Class {
+	#name : 'SizeSorter',
+	#superclass : 'CompletionSorter',
+	#category : 'NECompletion-Sorting',
+	#package : 'NECompletion',
+	#tag : 'Sorting'
+}
+
+{ #category : 'sorting' }
+SizeSorter >> sortCompletionList: anOrderedCollection [
+
+	^ anOrderedCollection sort: [ :a :b | a contents size < b contents size ]
+]