quickSelfTest/RunUnitTestsStart.st
changeset 396 5202f6aaaf39
parent 384 d8cad204e6ca
child 397 84e6ade7aad9
--- a/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 15:04:19 2017 +0200
+++ b/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 15:08:31 2017 +0200
@@ -32,6 +32,8 @@
 !RunUnitTestsStart class methodsFor:'starting'!
 
 main:argv
+    |allPackageIDs|
+
     self verboseInfo:('starting application').
     self startStartBlockProcess.
 
@@ -42,13 +44,14 @@
         do:[:ex | ex proceedWith:false].
 
     "ensure that required packages are present"
+    allPackageIDs := Smalltalk allPackageIDs.
     #(
         'stx:goodies/sunit'
-"/        'stx:libcompat'
-"/        'stx:libjavascript'
+        'stx:libcompat'
+        'stx:libjavascript'
         'stx:goodies/regression'
     ) do:[:eachPackage |
-        (Smalltalk loadPackage:eachPackage) ifFalse:[
+        (allPackageIDs includes:eachPackage) ifFalse:[
             Stdout showCR:'error: missing package ', eachPackage.
             Smalltalk exit:1.
         ].