quickSelfTest/Start.st
changeset 329 6a3fe7cea4e1
child 409 74a4f136cf81
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/quickSelfTest/Start.st	Tue Mar 21 16:03:37 2017 +0100
@@ -0,0 +1,40 @@
+"
+	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.