#BUGFIX by sr
authorsr
Tue, 10 Oct 2017 14:59:47 +0200
changeset 384e9e6b209c623
parent 383 777dbd727377
child 385 d8cad204e6ca
#BUGFIX by sr
class: RunUnitTestsStart class
changed: #main:
quickSelfTest/RunUnitTestsStart.st
     1.1 --- a/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 14:55:05 2017 +0200
     1.2 +++ b/quickSelfTest/RunUnitTestsStart.st	Tue Oct 10 14:59:47 2017 +0200
     1.3 @@ -35,11 +35,27 @@
     1.4      self verboseInfo:('starting application').
     1.5      self startStartBlockProcess.
     1.6  
     1.7 -    Stdout nextPutLine:'12'.
     1.8 -    Stderr nextPutLine:'32'.
     1.9 +    "install a global handler, 
    1.10 +     which suppresses the updating of the change file"       
    1.11 +    Processor activeProcess exceptionHandlerSet
    1.12 +        on:(Class updateChangeFileQuerySignal)
    1.13 +        do:[:ex | ex proceedWith:false].
    1.14  
    1.15 -    (OperatingSystem pathOfSTXExecutable asFilename directory / 'Start.st') fileIn.
    1.16 -    Transcript nextPutLine:'43'.
    1.17 +    "ensure that required packages are present"
    1.18 +    #(
    1.19 +        'stx:goodies/sunit'
    1.20 +        'stx:libcompat'
    1.21 +        'stx:libjavascript'
    1.22 +        'stx:goodies/regression'
    1.23 +    ) do:[:eachPackage |
    1.24 +        (Smalltalk loadPackage:eachPackage) ifFalse:[
    1.25 +            Stdout showCR:'error: missing package ', eachPackage.
    1.26 +            Smalltalk exit:1.
    1.27 +        ].
    1.28 +    ].
    1.29 +
    1.30 +    "run the unit tests"
    1.31 +    RunUnitTests run.
    1.32  ! !
    1.33  
    1.34  !RunUnitTestsStart class methodsFor:'documentation'!