Simplify Cuis testSuite setup.

hpi-swa · Dec 22, 2023 · 8ce479b · 8ce479b · TruffleSqueak-Bot · Dec 22, 2023
1 parent c773884
commit 8ce479b
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runCuisTests.st b/src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runCuisTests.st
@@ -1,4 +1,4 @@
-| testSuite testCases nonTerminatingTestCases failingTests result exitCode |
+| testSuite nonTerminatingTestCases failingTests result exitCode |
 
 StdIOWriteStream stdout nextPutAll: 'Setting author information for testing ...'; newLine; flush.
 Utilities classPool at: #AuthorName put: 'TruffleSqueak'.
@@ -30,10 +30,7 @@ failingTests := OrderedCollection new.
     assoc value do: [:sel | failingTests add: (testCase selector: sel) ]].
 
 StdIOWriteStream stdout newLine; nextPutAll: 'Passing TestCases:'; newLine; flush.
-testSuite := TestSuite new.
-testCases := (TestCase allSubclasses reject: [:testCase |testCase isAbstract])
-        sorted: [:a :b | a name <= b name].
-testCases do: [:testCase | testCase addToSuiteFromSelectors: testSuite].
+testSuite := TestCase buildSuite.
 testSuite tests removeAllSuchThat: [:ea | nonTerminatingTestCases anySatisfy: [:t | ea class == t class and: [ ea selector == t selector ]]].
 testSuite tests removeAllSuchThat: [:ea | failingTests            anySatisfy: [:t | ea class == t class and: [ ea selector == t selector ]]].
 result := testSuite run.