#FEATURE by sr
class: RegressionTests::Helper class
added: #isStcCompiledMethod:inClass:
--- a/RegressionTests__Helper.st Mon Oct 16 15:15:55 2017 +0200
+++ b/RegressionTests__Helper.st Mon Oct 16 15:26:15 2017 +0200
@@ -31,6 +31,17 @@
!Helper class methodsFor:'queries'!
+isStcCompiledMethod:aMethod
+ inClass:aClass
+
+ |compiledMethod|
+
+ compiledMethod := aClass compiledMethodAt:aMethod.
+
+ ^ (compiledMethod notNil
+ and:[compiledMethod byteCode isNil])
+!
+
packageDirectoryForRegressionTests
^ self workDirectory / 'stx' / 'goodies' / 'regression'
!