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