--- a/compiler/tests/extras/PPCLL1ExpressionGrammarTest.st Mon Sep 07 08:03:02 2015 +0100
+++ b/compiler/tests/extras/PPCLL1ExpressionGrammarTest.st Mon Sep 07 08:20:46 2015 +0100
@@ -40,14 +40,14 @@
^ (self petitParserClass name , 'C_' ,
"This is bit hacky!!"
- ((self compilerConfiguration isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol
+ (("This is bit hacky!!" self compiler isKindOf: PPCTokenizingConfiguration) ifTrue:[ 'Tokenizing' ] ifFalse:[ 'Universal' ])) asSymbol
"Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-compilerConfiguration
- "Return configuration to use when compiling parser (as instance of PPCConfiguration)"
-
+compiler
+ "Return compiler to use when compiling parser (as instance of PPCConfiguration)"
+
^ self subclassResponsibility
"Created: / 29-07-2015 / 16:53:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -86,12 +86,12 @@
setUpBefore
"Called before any of my tests is run (when resources are set up)"
- | time configuration |
+ | time compiler |
- configuration := self compilerConfiguration.
- configuration options parserName: self compiledParserClassName.
+ compiler := self compiler.
+ compiler options parserName: self compiledParserClassName.
time := Time millisecondsToRun: [
- self petitParser compileWithConfiguration: configuration.
+ self petitParser compileUsingCompiler:compiler.
].
Transcript show: self petitParserClass name ; show:' compiled in: '; show: time asString; show: 'ms'; cr.