--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__Helper.st Fri Oct 13 17:02:36 2017 +0200
@@ -0,0 +1,69 @@
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#Helper
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-Helper'
+!
+
+!Helper class methodsFor:'documentation'!
+
+documentation
+"
+ documentation to be added.
+
+ [author:]
+ sr
+
+ [instance variables:]
+
+ [class variables:]
+
+ [see also:]
+
+"
+! !
+
+!Helper class methodsFor:'queries'!
+
+packageDirectoryForRegressionTests
+ "
+ self
+ packageDirectoryForClass:self
+ relativePath:'stx/goodies/regression'
+ "
+
+ |packageDirectory pathOfSTXExecutable|
+
+ packageDirectory := self packageDirectory.
+ packageDirectory notNil ifTrue:[
+ ^ packageDirectory
+ ].
+
+ "/ packageDirectory is nil -> stc code
+ pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable.
+ (pathOfSTXExecutable includesSubString:'quickSelfTest') ifTrue:[
+ "unit tests started from stx/goodies/builder/quickSelfTest/quickSelfTest"
+ ^ pathOfSTXExecutable asFilename "/ stx/goodies/builder/quickSelfTest/quickSelfTest
+ directory "/ stx/goodies/builder/quickSelfTest
+ directory "/ stx/goodies/builder
+ directory "/ stx/goodies
+ / 'regression'
+ ].
+
+ self error:'no package path'.
+! !
+
+!Helper class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
+! !
+