"{ Encoding: utf8 }"

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

isStcCompiledMethod:aMethod

    in:instance

    ^ self 

        isStcCompiledMethod:aMethod

        inClass:instance class

!

isStcCompiledMethod:aMethod

    inClass:aClass

    |compiledMethod|

    compiledMethod := aClass compiledMethodAt:aMethod.

    ^ (compiledMethod notNil 

    and:[compiledMethod byteCode isNil])

!

packageDirectoryForRegressionTests

    ^ self workDirectory / 'stx' / 'goodies' / 'regression'     

!

smalltalkDirectory

    ^ self workDirectory / 'stx' / 'projects' / 'smalltalk'     

!

workDirectory

    |directoryOfStandaloneBinary|

    directoryOfStandaloneBinary := OperatingSystem nameOfSTXExecutable asFilename directory.

    (directoryOfStandaloneBinary pathName includesSubString:'quickSelfTest') ifTrue:[

        "this test is called by /stx/goodies/builder/quickSelfTest"

        ^ directoryOfStandaloneBinary directory directory directory directory

    ].

    ^ directoryOfStandaloneBinary directory directory directory 

! !

!Helper class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !