#UI_ENHANCEMENT by cg
class: RegressionTests::HTMLParserTests
added:
#test01a
#test01b
#test01c
#test02a
#test02b
"{ 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
"Modified (format): / 30-07-2018 / 09:16:27 / Stefan Vogel"
!
isStcCompiledMethod:aMethod inClass:aClass
|compiledMethod|
compiledMethod := aClass compiledMethodAt:aMethod.
^ compiledMethod notNil and:[compiledMethod byteCode isNil]
"Modified (format): / 30-07-2018 / 09:16:15 / Stefan Vogel"
!
packageDirectoryForRegressionTests
^ self workDirectory / 'stx' / 'goodies' / 'regression'
!
smalltalkDirectory
^ self workDirectory / 'stx' / 'projects' / 'smalltalk'
!
workDirectory
"return the directory one above the stx folder"
|directoryOfStandaloneBinary dir parent|
directoryOfStandaloneBinary := OperatingSystem nameOfSTXExecutable asFilename directory.
"/ search for the directory above stx/goodies
dir := directoryOfStandaloneBinary.
[
parent := dir directory.
(dir pathName ~= parent pathName)
and:[ (dir / 'stx' / 'goodies' / 'regression') exists not ]
] whileTrue:[
dir := parent.
].
(dir / 'stx/goodies/regression') exists ifFalse:[self error:'where am I?' ].
^ dir.
"/ (directoryOfStandaloneBinary pathName includesSubString:'quickSelfTest') ifTrue:[
"/ "this test is called by /stx/goodies/builder/quickSelfTest"
"/ dir := directoryOfStandaloneBinary.
"/ dir
"/ ^ directoryOfStandaloneBinary
"/ directory "/ /stx/goodies/builder/
"/ directory "/ /stx/goodies/
"/ directory "/ /stx
"/ directory "/ <one above>
"/ ].
"/
"/ ^ directoryOfStandaloneBinary directory directory directory
! !
!Helper class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !