quickSelfTest/Start.st
author sr
Tue, 10 Oct 2017 15:03:59 +0200
changeset 388 c972ed7d867a
parent 329 6a3fe7cea4e1
child 409 74a4f136cf81
permissions -rw-r--r--
class: RunUnitTestsStart class changed: #main:

"
	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 
	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.
].

'RunUnitTests.st' asFilename fileIn. 
(Smalltalk at:#'RunUnitTests') isNil ifTrue:[
	Stdout showCR:'error: missing #RunUnitTests'.
    Smalltalk exit:1.
].	
	
Smalltalk loadPackage:'stx:libcompat'.
Smalltalk loadPackage:'stx:libjavascript'.


"
	run the unit tests
"
RunUnitTests run.