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
     1 "{ Encoding: utf8 }"
     2 
     3 "{ Package: 'stx:goodies/builder/quickSelfTest' }"
     4 
     5 "{ NameSpace: Smalltalk }"
     6 
     7 StandaloneStartup subclass:#RunUnitTestsStart
     8 	instanceVariableNames:''
     9 	classVariableNames:''
    10 	poolDictionaries:''
    11 	category:'tests-Regression'
    12 !
    13 
    14 !RunUnitTestsStart class methodsFor:'documentation'!
    15 
    16 documentation
    17 "
    18     Only for standalone startup.
    19 
    20     [author:]
    21 	sr
    22 
    23     [instance variables:]
    24 
    25     [class variables:]
    26 
    27     [see also:]
    28 
    29 "
    30 ! !
    31 
    32 !RunUnitTestsStart class methodsFor:'startup'!
    33 
    34 main:argv
    35     self verboseInfo:('starting application').
    36     self startStartBlockProcess.
    37 
    38     "install a global handler,
    39      which suppresses the updating of the change file"
    40     Processor activeProcess exceptionHandlerSet
    41 	on:(Class updateChangeFileQuerySignal)
    42 	do:[:ex | ex proceedWith:false].
    43 
    44     "run the unit tests"
    45     RunUnitTests runWithCompiledUnitTestClasses:true.
    46 !
    47 
    48 setupSmalltalkFromArguments:argv
    49     (argv includes:'/?') ifTrue:[
    50 	self usage.
    51 	AbortOperationRequest raise.
    52     ].
    53 
    54     ^ super setupSmalltalkFromArguments:argv
    55 !
    56 
    57 usage
    58     Stderr cr.
    59     Stderr nextPutLine:'  --help............................this infromation'.
    60     Stderr nextPutLine:'  --settingsFile....................path to a stx settings file (may to set compiler options)'.
    61     Stderr nextPutLine:'  --runOnlyExpeccoUnitTests.........run only expecco related test cases'.
    62     Stderr nextPutLine:'  --resultFile......................path to a file for storing the result as xml'.
    63     Stderr nextPutLine:'  --forceTestCase testName .........class name of a test case (only this test case will be executed)'.
    64     Stderr nextPutLine:'  --run testName ...................same, shorter'.
    65     Stderr nextPutLine:'  --skip testName ..................skip a test class'.
    66 
    67     "Modified: / 26-03-2019 / 18:47:53 / Claus Gittinger"
    68 ! !
    69 
    70 !RunUnitTestsStart class methodsFor:'documentation'!
    71 
    72 version
    73     ^ '$Header$'
    74 !
    75 
    76 version_CVS
    77     ^ '$Header$'
    78 ! !