refactor tests

DurieuxPol · Jan 26, 2024 · 872345c · 872345c
1 parent 00242f6
commit 872345c
Showing 1 changed file with 8 additions and 13 deletions.
diff --git a/src/MuTalk-Utilities-Tests/MTNonMutatedMethodsAnalysisTest.class.st b/src/MuTalk-Utilities-Tests/MTNonMutatedMethodsAnalysisTest.class.st
@@ -8,18 +8,13 @@ Class {
 { #category : 'tests' }
 MTNonMutatedMethodsAnalysisTest >> testNonMutatedMethods [
 
-	| testClasses nonMutatedMethods results |
-	testClasses := 'MuTalk-Utilities-Tests' asPackage definedClasses
-		               select: #isTestCase.
-	nonMutatedMethods := testClasses
-		                     inject: Set new
-		                     into: [ :set :testClass |
-			                     set addAll: testClass methods.
-			                     set ].
+	| results |
+	results := (MTNonMutatedMethodsAnalysis forClasses: {
+			            MTAuxiliarClassForMatrix.
+			            MTAuxiliarClassForMatrixTest })
+		           findMethodsWithoutMutation asSet.
 
-	results := (MTNonMutatedMethodsAnalysis forPackages:
-		            { 'MuTalk-Utilities-Tests' }) findMethodsWithoutMutation
-		           asSet.
-
-	self assert: nonMutatedMethods equals: results
+	self
+		assert: results
+		equals: MTAuxiliarClassForMatrixTest methods asSet
 ]