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