quickSelfTest/RunUnitTestsStart.st
author Claus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 13:54:38 +0100
changeset 542 aa25a71be62a
parent 541 1ccf832eb9e7
child 549 54b9fecb0bc9
permissions -rw-r--r--
#DOCUMENTATION by cg class: stx_goodies_builder_quickSelfTest class definition class: stx_goodies_builder_quickSelfTest class added:18 methods

"{ 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$'
! !