quickSelfTest/Start.st
changeset 409 74a4f136cf81
parent 329 6a3fe7cea4e1
child 512 9d572c1caefa
--- a/quickSelfTest/Start.st	Wed Oct 11 11:38:51 2017 +0200
+++ b/quickSelfTest/Start.st	Wed Oct 11 11:40:19 2017 +0200
@@ -1,12 +1,13 @@
+|fn|
 "
-	install a global handler, 
+	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
 "
@@ -16,20 +17,26 @@
 	Smalltalk exit:1.
 ].
 
-Smalltalk 
-	fileInClass:#'stx_goodies_regression' 
+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. 
+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'.