"{ Encoding: utf8 }"
"{ Package: 'stx:goodies/builder/quickSelfTest' }"
"{ NameSpace: Smalltalk }"
StandaloneStartup subclass:#RunUnitTestsStart
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression'
!
!RunUnitTestsStart class methodsFor:'documentation'!
documentation
"
documentation to be added.
[author:]
sr
[instance variables:]
[class variables:]
[see also:]
"
! !
!RunUnitTestsStart class methodsFor:'starting'!
main:argv
|allPackageIDs|
self verboseInfo:('starting application').
self startStartBlockProcess.
"install a global handler,
which suppresses the updating of the change file"
Processor activeProcess exceptionHandlerSet
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'
) do:[:eachPackage |
(allPackageIDs includes: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.
! !
!RunUnitTestsStart class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !