#BUGFIX by sr
authorsr
Tue, 10 Oct 2017 14:59:47 +0200
changeset 383 e9e6b209c623
parent 382 777dbd727377
child 384 d8cad204e6ca
#BUGFIX by sr class: RunUnitTestsStart class changed: #main:
quickSelfTest/RunUnitTestsStart.st
--- a/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 14:55:05 2017 +0200
+++ b/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 14:59:47 2017 +0200
@@ -35,11 +35,27 @@
     self verboseInfo:('starting application').
     self startStartBlockProcess.
 
-    Stdout nextPutLine:'12'.
-    Stderr nextPutLine:'32'.
+    "install a global handler, 
+     which suppresses the updating of the change file"       
+    Processor activeProcess exceptionHandlerSet
+        on:(Class updateChangeFileQuerySignal)
+        do:[:ex | ex proceedWith:false].
 
-    (OperatingSystem pathOfSTXExecutable asFilename directory / 'Start.st') fileIn.
-    Transcript nextPutLine:'43'.
+    "ensure that required packages are present"
+    #(
+        'stx:goodies/sunit'
+        'stx:libcompat'
+        'stx:libjavascript'
+        'stx:goodies/regression'
+    ) do:[:eachPackage |
+        (Smalltalk loadPackage:eachPackage) ifFalse:[
+            Stdout showCR:'error: missing package ', eachPackage.
+            Smalltalk exit:1.
+        ].
+    ].
+
+    "run the unit tests"
+    RunUnitTests run.
 ! !
 
 !RunUnitTestsStart class methodsFor:'documentation'!