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