Run Cuis tests on TruffleSqueak

.github/workflows/ci.yml

@@ -137,6 +137,31 @@ jobs:
         retention-days: 5
       if: ${{ env.RUN_TESTS == 'true' }}
 
+  cuis-build:
+    name: Cuis + ubuntu-latest + JDK17
+    timeout-minutes: 30
+    runs-on: ubuntu-latest
+    steps:
+    - name: Clone TruffleSqueak repository
+      uses: actions/checkout@v2
+      with:
+        submodules: true
+    - name: Set up dependencies
+      shell: bash
+      run: mx.trufflesqueak/utils.sh set-up-dependencies java17
+    - name: Build TruffleSqueak JVM component
+      run: mx.trufflesqueak/utils.sh build-component trufflesqueak-jvm SMALLTALK_INSTALLABLE_JAVA17 ${{ env.INSTALLABLE_JVM_TARGET }}
+    - name: Clone Cuis-Smalltalk repository
+      uses: actions/checkout@v2
+      with:
+        repository: 'Cuis-Smalltalk/Cuis-Smalltalk-Dev'
+        ref: 'd48898a78648f70ce56c6c5a21574b7e7f267dfe'
+        path: 'Cuis-Smalltalk-Dev'
+    - name: Run Cuis-Smalltalk tests on TruffleSqueak
+      run: |
+        cd Cuis-Smalltalk-Dev
+        trufflesqueak --jvm --headless Cuis6.0-5031.image -s ../src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runCuisTests.st || true
+
   aarch64-builds:
     strategy:
       fail-fast: false

src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runCuisTests.st

@@ -0,0 +1,26 @@
+| testSuite testCases ignoredTestCases result exitCode |
+
+Utilities classPool at: #AuthorName put: 'TruffleSqueak'.
+Utilities classPool at: #AuthorInitials put: 'TS'.
+
+CodePackageFile installPackage: './Packages/BaseImageTests.pck.st' asFileEntry.
+
+ChangeSet fileIn: './.ContinuousIntegrationScripts/TestResultConsolePrinter.st' asFileEntry.
+
+ignoredTestCases := #(#DelayTest #MonitorTest #ProcessTerminateBug
+    #ProcessTerminateUnwindNonLocalReturn #SemaphoreTest #TestSuiteTest
+    #TestValueWithinFix).
+
+testSuite := TestSuite new.
+testCases := (TestCase allSubclasses reject: [:testCase |
+    testCase isAbstract or: [ ignoredTestCases includes: testCase name ]])
+        sorted: [:a :b | a name <= b name].
+testCases do: [:testCase | testCase addToSuiteFromSelectors: testSuite].
+
+result := testSuite run.
+
+result printReport.
+
+exitCode := (result hasFailures or: [ result hasErrors ]) ifTrue: [ 1 ] ifFalse: [ 0 ].
+
+Smalltalk quitPrimitive: exitCode