--- 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.
].