--- 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'.