quickSelfTest/Start.st
author Claus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 13:54:38 +0100
changeset 542 aa25a71be62a
parent 533 59170f299fc2
permissions -rw-r--r--
#DOCUMENTATION by cg
class: stx_goodies_builder_quickSelfTest
class definition

class: stx_goodies_builder_quickSelfTest class
added:18 methods
sr@410
     1
|fn|
sr@330
     2
"
sr@410
     3
	install a global handler,
sr@330
     4
	which suppresses the updating of the change file
sr@410
     5
"
sr@330
     6
Processor activeProcess exceptionHandlerSet
sr@330
     7
    on:(Class updateChangeFileQuerySignal)
sr@330
     8
    do:[:ex | ex proceedWith:false ].
sr@330
     9
sr@410
    10
sr@330
    11
"
sr@330
    12
	ensure that required packages are present
sr@330
    13
"
sr@330
    14
Smalltalk loadPackage:'stx:goodies/sunit'.
sr@330
    15
(TestCase notNil and:[TestCase isLoaded]) ifFalse:[
sr@330
    16
	Stdout showCR:'error: missing #TestCase class after sunit package load'.
sr@330
    17
	Smalltalk exit:1.
sr@330
    18
].
sr@330
    19
sr@531
    20
Smalltalk loadPackage:'stx:goodies/xml/xpath'.
sr@533
    21
(XML::XPathParser notNil and:[XML::XPathParser isLoaded]) ifFalse:[
sr@531
    22
    Stdout showCR:'error: missing #XPathParser class after goodies/xml/xpath package load'.
sr@531
    23
    Smalltalk exit:1.
sr@531
    24
].
sr@531
    25
sr@410
    26
Smalltalk
sr@410
    27
	fileInClass:#'stx_goodies_regression'
sr@330
    28
	package:'stx:goodies/regression'.
sr@330
    29
(Smalltalk at:#'stx_goodies_regression') isNil ifTrue:[
sr@330
    30
	Stdout showCR:'error: missing #stx_goodies_regression'.
sr@330
    31
    Smalltalk exit:1.
sr@330
    32
].
sr@330
    33
sr@410
    34
fn := 'RunUnitTests.st' asFilename.
sr@410
    35
fn exists ifFalse:[
sr@410
    36
    fn := '../RunUnitTests.st' asFilename.
sr@410
    37
].
sr@410
    38
sr@410
    39
fn fileIn.
sr@410
    40
sr@330
    41
(Smalltalk at:#'RunUnitTests') isNil ifTrue:[
sr@330
    42
	Stdout showCR:'error: missing #RunUnitTests'.
sr@330
    43
    Smalltalk exit:1.
sr@410
    44
].
sr@410
    45
sr@330
    46
Smalltalk loadPackage:'stx:libcompat'.
sr@330
    47
Smalltalk loadPackage:'stx:libjavascript'.
sr@513
    48
Smalltalk loadPackage:'stx:goodies/regex'.
sr@330
    49
sr@330
    50
sr@330
    51
"
sr@330
    52
	run the unit tests
sr@330
    53
"
sr@330
    54
RunUnitTests run.