--- a/compiler/tests/extras/PPCAbstractParserTest.st Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/tests/extras/PPCAbstractParserTest.st Mon Aug 17 12:56:02 2015 +0100
@@ -47,6 +47,13 @@
"Created: / 29-07-2015 / 16:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+compiledScannerClassName
+ "Return the name of the compiled parser"
+
+ ^ (self petitParserClass name , 'C_Scanner') 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)"
@@ -96,6 +103,7 @@
configuration := self compilerConfiguration.
configuration arguments parserName: self compiledParserClassName.
+ configuration arguments scannerName: self compiledScannerClassName.
time := Time millisecondsToRun: [
self petitParser compileWithConfiguration: configuration.
].