"{ 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|
(argv includesAny:#('--help' '/?')) ifTrue:[
Stdout showCR:'--help............................this infromation'.
Stdout showCR:'--settingsFile....................path to a stx settings file (may to set compiler options)'.
Stdout showCR:'--runOnlyExpeccoUnitTests.........run only expecco related test cases'.
Stdout showCR:'--resultFile......................path to a file for storing the result as xml'.
Stdout showCR:'--forceTestCase...................class name of a test case (only this test case will be executed)'.
Smalltalk exit.
].
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.
RegressionTests::IntegerTest. "/ just to get the ref for building make files
! !
!RunUnitTestsStart class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !