"{ 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$'
! !