--- a/compiler/tests/extras/PPCSmalltalkGrammarTests.st	Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkGrammarTests.st	Mon Aug 17 12:56:02 2015 +0100
@@ -9,7 +9,6 @@
 	category:'PetitCompiler-Extras-Tests-Smalltalk'
 !
 
-
 !PPCSmalltalkGrammarTests class methodsFor:'resources'!
 
 resources
@@ -46,6 +45,12 @@
     "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
+!
+
 compilerConfiguration
     "Return configuration to use when compiling parser (as instance of PPCConfiguration)"
 
@@ -91,6 +96,8 @@
 
     configuration := self compilerConfiguration.
     configuration arguments parserName: self compiledParserClassName.
+    configuration arguments scannerName: self compiledScannerClassName.
+        
     time := Time millisecondsToRun: [
         self petitParser compileWithConfiguration: configuration.
     ].
@@ -106,13 +113,3 @@
     "Created: / 29-07-2015 / 16:33:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!PPCSmalltalkGrammarTests class methodsFor:'documentation'!
-
-version
-    ^ 'Path: stx/goodies/petitparser/compiler/tests/extras/PPCSmalltalkGrammarTests.st, Version: 1.0, User: jv, Time: 2015-07-30T07:31:30.012+01'
-!
-
-version_HG
-    ^ 'Path: stx/goodies/petitparser/compiler/tests/extras/PPCSmalltalkGrammarTests.st, Version: 1.0, User: jv, Time: 2015-07-30T07:31:30.012+01'
-! !
-