Avoid progress bars

hpi-swa · Dec 22, 2023 · f813639 · f813639
1 parent 75930fc
commit f813639
Showing 1 changed file with 23 additions and 19 deletions.
diff --git a/src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runSqueakTests.st b/src/de.hpi.swa.trufflesqueak.test/src/de/hpi/swa/trufflesqueak/test/runSqueakTests.st
@@ -2,6 +2,8 @@
 
 FileStream stdout nextPutAll: 'Preparing image for testing...'; cr; flush.
 
+"Avoid showing progress bars."
+Project current instVarNamed: #uiManager put: DummyUIManager new.
 "ToolSet default: CommandLineToolSet."
 
 Utilities
@@ -5797,25 +5799,27 @@ failingTests := {
     SmallIntegerTest selector: #testPrintString.
 }.
 
-FileStream stdout cr; nextPutAll: 'Running passing tests...'; cr; flush.
-result := TestSuite new addTests: passingTests; run.
-FileStream stdout cr;
-    nextPutAll: 'Test results:'; cr;
-    nextPutAll: result asString; cr; flush.
-exitCode := (result hasFailures or: [ result hasErrors ]) ifTrue: [ 1 ] ifFalse: [ 0 ].
+WorldState addDeferredUIMessage: [
+    FileStream stdout cr; nextPutAll: 'Running passing tests...'; cr; flush.
+    result := TestSuite new addTests: passingTests; run.
+    FileStream stdout cr;
+        nextPutAll: 'Test results:'; cr;
+        nextPutAll: result asString; cr; flush.
+    exitCode := (result hasFailures or: [ result hasErrors ]) ifTrue: [ 1 ] ifFalse: [ 0 ].
 
-FileStream stdout cr; nextPutAll: 'Running flaky tests...'; cr; flush.
-result := TestSuite new addTests: flakyTests; run.
-FileStream stdout cr;
-    nextPutAll: 'Test results:'; cr;
-    nextPutAll: result asString; cr; flush.
-exitCode := result hasErrors ifTrue: [ 1 ] ifFalse: [ exitCode ].
+    FileStream stdout cr; nextPutAll: 'Running flaky tests...'; cr; flush.
+    result := TestSuite new addTests: flakyTests; run.
+    FileStream stdout cr;
+        nextPutAll: 'Test results:'; cr;
+        nextPutAll: result asString; cr; flush.
+    exitCode := result hasErrors ifTrue: [ 1 ] ifFalse: [ exitCode ].
 
-FileStream stdout cr; nextPutAll: 'Running failing tests...'; cr; flush.
-result := TestSuite new addTests: failingTests; run.
-FileStream stdout cr;
-    nextPutAll: 'Test results:'; cr;
-    nextPutAll: result asString; cr; flush.
-exitCode := result hasPassed ifTrue: [ 1 ] ifFalse: [ exitCode ].
+    FileStream stdout cr; nextPutAll: 'Running failing tests...'; cr; flush.
+    result := TestSuite new addTests: failingTests; run.
+    FileStream stdout cr;
+        nextPutAll: 'Test results:'; cr;
+        nextPutAll: result asString; cr; flush.
+    exitCode := result hasPassed ifTrue: [ 1 ] ifFalse: [ exitCode ].
 
-Smalltalk quitPrimitive: exitCode
+    Smalltalk quitPrimitive: exitCode
+]