"{ Encoding: utf8 }"

"{ Package: 'stx:goodies/builder/quickSelfTest' }"

"{ NameSpace: Smalltalk }"

StandaloneStartup subclass:#RunUnitTestsStart

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!RunUnitTestsStart class methodsFor:'documentation'!

documentation

"

    Only for standalone startup.

    [author:]

	sr

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!RunUnitTestsStart class methodsFor:'startup'!

main:argv

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

    "run the unit tests"

    RunUnitTests runWithCompiledUnitTestClasses:true.

!

setupSmalltalkFromArguments:argv

    (argv includes:'/?') ifTrue:[

	self usage.

	AbortOperationRequest raise.

    ].

    ^ super setupSmalltalkFromArguments:argv

!

usage

    Stderr cr.

    Stderr nextPutLine:'  --help............................this infromation'.

    Stderr nextPutLine:'  --settingsFile....................path to a stx settings file (may to set compiler options)'.

    Stderr nextPutLine:'  --runOnlyExpeccoUnitTests.........run only expecco related test cases'.

    Stderr nextPutLine:'  --resultFile......................path to a file for storing the result as xml'.

    Stderr nextPutLine:'  --forceTestCase testName .........class name of a test case (only this test case will be executed)'.

    Stderr nextPutLine:'  --run testName ...................same, shorter'.

    Stderr nextPutLine:'  --skip testName ..................skip a test class'.

    "Modified: / 26-03-2019 / 18:47:53 / Claus Gittinger"

! !

!RunUnitTestsStart class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !