Renamed some classes

src/MuTalk-CI-Tests/CoveragePropagationPreparationTest.class.st

@@ -15,7 +15,7 @@ CoveragePropagationPreparationTest >> testWorking [
 		            testCasesFrom: { MutalkCIHelperTest }
 		            mutating: { MutalkCIHelper }
 		            using: MutantOperator contents
-		            with: AllTestsMethodsRunningMutantEvaluationStrategy new.
+		            with: AllTestsMethodsRunningTestSelectionStrategy new.
 	analysis run.
 
 	moreInfo := CoveragePropagationPreparation new

src/MuTalk-CI-Tests/MutalkCITonelJsonExporterTest.class.st

@@ -20,7 +20,7 @@ MutalkCITonelJsonExporterTest >> testWorking [
 		            testCasesFrom: { SmallBankTest }
 		            mutating: { SmallBank }
 		            using: MutantOperator contents
-		            with: AllTestsMethodsRunningMutantEvaluationStrategy new.
+		            with: AllTestsMethodsRunningTestSelectionStrategy new.
 	analysis run.
 	moreInfo := CoveragePropagationPreparation new
 		            mtResult: analysis;

src/MuTalk-CI/MutalkCI.class.st

@@ -144,7 +144,7 @@ MutalkCI >> mutateAll [
 		runMutalkTargets: targets
 		tests: tests
 		generationStrategy:
-		SelectingFromCoverageMutationsGenerationStrategy new
+		SelectingFromCoverageMutantSelectionStrategy new
 ]
 
 { #category : #'as yet unclassified' }
@@ -201,7 +201,7 @@ MutalkCI >> runMutalkTargets: targets tests: tests generationStrategy: generatio
 		            testCasesFrom: tests
 		            mutating: targets
 		            using: MutantOperator contents
-		            with: SelectingFromCoverageMutantEvaluationStrategy new
+		            with: SelectingFromCoverageTestSelectionStrategy new
 		            with: generationStrategy.
 	analysis run.
 	coverageInfo := self prepareCoverageInfo: analysis.

src/MuTalk-CI/SelectingFromAlivesMutationsGenerationStrategy.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #SelectingFromAlivesMutationsGenerationStrategy,
-	#superclass : #MutationsGenerationStrategy,
+	#superclass : #MutantSelectionStrategy,
 	#instVars : [
 		'analysis'
 	],

src/MuTalk-Model/AllMutationsGenerationStrategy.class.st → src/MuTalk-Model/AllMutantSelectionStrategy.class.st

@@ -1,11 +1,11 @@
 Class {
-	#name : #AllMutationsGenerationStrategy,
-	#superclass : #MutationsGenerationStrategy,
-	#category : 'MuTalk-Model-Mutations generation strategies'
+	#name : #AllMutantSelectionStrategy,
+	#superclass : #MutantSelectionStrategy,
+	#category : #'MuTalk-Model-Mutations generation strategies'
 }
 
 { #category : #generating }
-AllMutationsGenerationStrategy >> classesAndMetaclassesFrom: modelClasses [ 
+AllMutantSelectionStrategy >> classesAndMetaclassesFrom: modelClasses [ 
 	^ modelClasses
 		inject: OrderedCollection new
 		into: [:classes :aClass | 
@@ -15,7 +15,7 @@ AllMutationsGenerationStrategy >> classesAndMetaclassesFrom: modelClasses [
 ]
 
 { #category : #generating }
-AllMutationsGenerationStrategy >> methodsToMutateFrom: aMutationTestingAnalysis [ 
+AllMutantSelectionStrategy >> methodsToMutateFrom: aMutationTestingAnalysis [ 
 	^ (self classesAndMetaclassesFrom: aMutationTestingAnalysis modelClasses)
 		inject: OrderedCollection new
 		into: [:methods :aClass | 

src/MuTalk-Model/AllTestsMethodsRunningTestSelectionStrategy.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : #AllTestsMethodsRunningTestSelectionStrategy,
+	#superclass : #TestSelectionStrategy,
+	#category : #'MuTalk-Model-Mutant evaluation strategies'
+}
+
+{ #category : #private }
+AllTestsMethodsRunningTestSelectionStrategy >> testCasesToEvaluate: aMutation for: aMutantEvaluation [
+	^aMutantEvaluation testCases.
+
+]

src/MuTalk-Model/FixedRandomMutantSelectionStrategy.class.st

@@ -0,0 +1,38 @@
+Class {
+	#name : #FixedRandomMutantSelectionStrategy,
+	#superclass : #RandomMutantSelectionStrategy,
+	#instVars : [
+		'numberOfMutants'
+	],
+	#category : #'MuTalk-Model-Mutations generation strategies'
+}
+
+{ #category : #accessing }
+FixedRandomMutantSelectionStrategy >> highLimitCondition: aSize [
+
+	^ aSize <= self numberOfMutants
+]
+
+{ #category : #accessing }
+FixedRandomMutantSelectionStrategy >> lowLimitCondition [
+
+	^ self numberOfMutants = 0
+]
+
+{ #category : #accessing }
+FixedRandomMutantSelectionStrategy >> numberOfMutants [
+
+	^ numberOfMutants
+]
+
+{ #category : #accessing }
+FixedRandomMutantSelectionStrategy >> numberOfMutants: aNumber [
+
+	numberOfMutants := aNumber
+]
+
+{ #category : #accessing }
+FixedRandomMutantSelectionStrategy >> totalNumberOfMutants: aSize [
+
+	^ self numberOfMutants
+]

src/MuTalk-Model/ManualMutantSelectionStrategy.class.st

@@ -0,0 +1,20 @@
+Class {
+	#name : #ManualMutantSelectionStrategy,
+	#superclass : #MutantSelectionStrategy,
+	#instVars : [
+		'targetMethods'
+	],
+	#category : #'MuTalk-Model-Mutations generation strategies'
+}
+
+{ #category : #generating }
+ManualMutantSelectionStrategy >> methodsToMutateFrom: aMutationTestingAnalysis [
+
+	^ targetMethods 
+]
+
+{ #category : #accessing }
+ManualMutantSelectionStrategy >> targetMethods: anObject [
+
+	targetMethods := anObject
+]

src/MuTalk-Model/MutationsGenerationStrategy.class.st → src/MuTalk-Model/MutantSelectionStrategy.class.st

@@ -1,23 +1,23 @@
 Class {
-	#name : #MutationsGenerationStrategy,
+	#name : #MutantSelectionStrategy,
 	#superclass : #Object,
-	#category : 'MuTalk-Model-Mutations generation strategies'
+	#category : #'MuTalk-Model-Mutations generation strategies'
 }
 
 { #category : #generating }
-MutationsGenerationStrategy >> methodsToMutateFrom:aMutationTestingAnalysis [
+MutantSelectionStrategy >> methodsToMutateFrom:aMutationTestingAnalysis [
 	self subclassResponsibility.
 ]
 
 { #category : #generating }
-MutationsGenerationStrategy >> mutationsFor: aMutationTestingAnalysis [ 
+MutantSelectionStrategy >> mutationsFor: aMutationTestingAnalysis [ 
 	^ self 
 		mutationsFor: aMutationTestingAnalysis
 		loggingIn: self nullLogger
 ]
 
 { #category : #generating }
-MutationsGenerationStrategy >> mutationsFor: aMutationTestingAnalysis loggingIn: aLogger [ 
+MutantSelectionStrategy >> mutationsFor: aMutationTestingAnalysis loggingIn: aLogger [ 
 	| mutations |
 	mutations := OrderedCollection new.
 	(self methodsToMutateFrom: aMutationTestingAnalysis) 
@@ -32,7 +32,7 @@ MutationsGenerationStrategy >> mutationsFor: aMutationTestingAnalysis loggingIn:
 ]
 
 { #category : #generating }
-MutationsGenerationStrategy >> mutationsFor: aMethod usingAll: aCollectionOfMutantOperators logginIn: aLogger [ 
+MutantSelectionStrategy >> mutationsFor: aMethod usingAll: aCollectionOfMutantOperators logginIn: aLogger [ 
 	| parseTree |
 	parseTree := aMethod parseTree.
 	^ aCollectionOfMutantOperators
@@ -45,7 +45,7 @@ MutationsGenerationStrategy >> mutationsFor: aMethod usingAll: aCollectionOfMuta
 ]
 
 { #category : #logging }
-MutationsGenerationStrategy >> nullLogger [
+MutantSelectionStrategy >> nullLogger [
 
 	^ NullMutationTestingAnalysisLogger new.
 ]

src/MuTalk-Model/MutationTestingAnalysis.class.st

@@ -23,12 +23,12 @@ MutationTestingAnalysis class >> defaultLogger [
 
 { #category : #defaults }
 MutationTestingAnalysis class >> defaultMutantsEvaluationStrategy [
-	^ AllTestsMethodsRunningMutantEvaluationStrategy new
+	^ AllTestsMethodsRunningTestSelectionStrategy new
 ]
 
 { #category : #defaults }
 MutationTestingAnalysis class >> defaultMutationsGenerationStrategy [
-	^ AllMutationsGenerationStrategy new.
+	^ AllMutantSelectionStrategy new.
 ]
 
 { #category : #'instance creation' }

src/MuTalk-Model/PercentRandomMutantSelection.class.st → src/MuTalk-Model/PercentRandomMutantSelectionStrategy.class.st

@@ -1,40 +1,40 @@
 Class {
-	#name : #PercentRandomMutantSelection,
-	#superclass : #RandomMutantSelection,
+	#name : #PercentRandomMutantSelectionStrategy,
+	#superclass : #RandomMutantSelectionStrategy,
 	#instVars : [
 		'percentageOfMutants'
 	],
 	#category : #'MuTalk-Model-Mutations generation strategies'
 }
 
 { #category : #accessing }
-PercentRandomMutantSelection >> highLimitCondition: size [
+PercentRandomMutantSelectionStrategy >> highLimitCondition: size [
 
 	^ percentageOfMutants = 100
 ]
 
 { #category : #accessing }
-PercentRandomMutantSelection >> lowLimitCondition [
+PercentRandomMutantSelectionStrategy >> lowLimitCondition [
 
 	^ percentageOfMutants = 0
 ]
 
 { #category : #accessing }
-PercentRandomMutantSelection >> percentageOfMutants [
+PercentRandomMutantSelectionStrategy >> percentageOfMutants [
 
 	^ percentageOfMutants
 ]
 
 { #category : #accessing }
-PercentRandomMutantSelection >> percentageOfMutants: aPercentage [
+PercentRandomMutantSelectionStrategy >> percentageOfMutants: aPercentage [
 
 	(aPercentage < 0 or: [ aPercentage > 100 ]) ifTrue: [
 		Error signal: 'Percantage should be between 0 and 100' ].
 	percentageOfMutants := aPercentage
 ]
 
 { #category : #accessing }
-PercentRandomMutantSelection >> totalNumberOfMutants: aSize [
+PercentRandomMutantSelectionStrategy >> totalNumberOfMutants: aSize [
 
 	^ percentageOfMutants * aSize / 100
 ]