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

|fn|
"
	install a global handler,
	which suppresses the updating of the change file
"
Processor activeProcess exceptionHandlerSet
    on:(Class updateChangeFileQuerySignal)
    do:[:ex | ex proceedWith:false ].


"
	ensure that required packages are present
"
Smalltalk loadPackage:'stx:goodies/sunit'.
(TestCase notNil and:[TestCase isLoaded]) ifFalse:[
	Stdout showCR:'error: missing #TestCase class after sunit package load'.
	Smalltalk exit:1.
].

Smalltalk loadPackage:'stx:goodies/xml/xpath'.
(XML::XPathParser notNil and:[XML::XPathParser isLoaded]) ifFalse:[
    Stdout showCR:'error: missing #XPathParser class after goodies/xml/xpath package load'.
    Smalltalk exit:1.
].

Smalltalk
	fileInClass:#'stx_goodies_regression'
	package:'stx:goodies/regression'.
(Smalltalk at:#'stx_goodies_regression') isNil ifTrue:[
	Stdout showCR:'error: missing #stx_goodies_regression'.
    Smalltalk exit:1.
].

fn := 'RunUnitTests.st' asFilename.
fn exists ifFalse:[
    fn := '../RunUnitTests.st' asFilename.
].

fn fileIn.

(Smalltalk at:#'RunUnitTests') isNil ifTrue:[
	Stdout showCR:'error: missing #RunUnitTests'.
    Smalltalk exit:1.
].

Smalltalk loadPackage:'stx:libcompat'.
Smalltalk loadPackage:'stx:libjavascript'.
Smalltalk loadPackage:'stx:goodies/regex'.


"
	run the unit tests
"
RunUnitTests run.