quickSelfTest/RunUnitTestsStart.st
changeset 485 652613b4eb5f
parent 451 e5570470a874
child 536 0d8dabdb4725
--- a/quickSelfTest/RunUnitTestsStart.st	Fri Oct 13 16:20:49 2017 +0200
+++ b/quickSelfTest/RunUnitTestsStart.st	Fri Oct 13 16:21:02 2017 +0200
@@ -43,8 +43,6 @@
 !RunUnitTestsStart class methodsFor:'startup'!
 
 main:argv
-    |allPackageIDs|
-
     self verboseInfo:('starting application').
     self startStartBlockProcess.
 
@@ -54,30 +52,8 @@
         on:(Class updateChangeFileQuerySignal)
         do:[:ex | ex proceedWith:false].
 
-    "ensure that required packages are present"
-    allPackageIDs := Smalltalk allPackageIDs.
-    #(
-        'stx:goodies/sunit'
-        'stx:libcompat'
-        'stx:libjavascript'
-        'stx:goodies/regression'
-        'exept:libcrypt'   
-    ) do:[:eachPackage |
-        (allPackageIDs includes:eachPackage) ifTrue:[
-            Stdout showCR:'info: loaded package ', eachPackage.
-        ] ifFalse:[
-            Smalltalk isStandAloneApp ifTrue:[
-                Stdout showCR:'error: missing package ', eachPackage.
-                Smalltalk exit:1.
-            ] ifFalse:[
-                Transcript showCR:'error: missing package ', eachPackage.                          
-            ].
-        ].
-    ].
-
     "run the unit tests"
     RunUnitTests runWithCompiledUnitTestClasses:true.
-    RegressionTests::IntegerTest. "/ just to get the ref for building make files
 !
 
 setupSmalltalkFromArguments:argv