Merge pull request #115 from DurieuxPol/fix/defaultBudget

Changed default budget

src/MuTalk-Model/MTAnalysis.class.st

@@ -58,9 +58,8 @@ MTAnalysis >> coverageAnalysisResult: anObject [
 
 { #category : 'accessing - defaults' }
 MTAnalysis >> defaultBudget [
-	"Since tests often take little time to run, we multiply it by 30"
 
-	^ MTTimeBudget for: self totalTestsTime * 30
+	^ MTTimeBudget for: 5 minutes
 ]
 
 { #category : 'accessing - defaults' }
@@ -181,7 +180,8 @@ MTAnalysis >> initialize [
 	mutantResults := OrderedCollection new.
 	elapsedTime := 0.
 	logger := self defaultLogger.
-	stopOnErrorOrFail := true
+	stopOnErrorOrFail := true.
+	budget := self defaultBudget
 ]
 
 { #category : 'accessing' }
@@ -295,7 +295,7 @@ MTAnalysis >> run [
 	self initialTestRun.
 
 	"The budget is started after the initial test run because the default one needs the run time of tests"
-	self startBudget.
+	budget start.
 	logger logAnalysisStartFor: self.
 
 	elapsedTime := [
@@ -304,14 +304,6 @@ MTAnalysis >> run [
 		self generateResults ] timeToRun
 ]
 
-{ #category : 'starting' }
-MTAnalysis >> startBudget [
-	"The budget is initialized here because the default one needs the run time of tests, so the initial test run must be executed first"
-
-	budget ifNil: [ budget := self defaultBudget ].
-	budget start
-]
-
 { #category : 'accessing' }
 MTAnalysis >> stopOnErrorOrFail: aBoolean [
 

src/MuTalk-Tests/MTAnalysisTest.class.st

@@ -101,17 +101,6 @@ MTAnalysisTest >> testErrorWhenInitializingDefaultTestFilterBeforeInitialTestRun
 	self should: [ analysis initializeTestFilter ] raise: Error
 ]
 
-{ #category : 'tests' }
-MTAnalysisTest >> testErrorWhenStartingDefaultBudgetBeforeInitialTestRun [
-
-	| analysis |
-	analysis := MTAnalysis new
-		            classesToMutate: { MTAuxiliarClassForMTAnalysis };
-		            testClasses: { MTAuxiliarClassForMTAnalysisTest }.
-
-	self should: [ analysis startBudget ] raise: Error
-]
-
 { #category : 'tests' }
 MTAnalysisTest >> testErrorWhenTryingToGetPercentileOfEmptyCollection [