"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

TestResource subclass:#PPCompiledSmalltalkGrammarResource
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Extras-Tests-Smalltalk'
!

!PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!

setUp
    | time configuration |
    configuration := PPCConfiguration universal.
    configuration arguments name:#PPCompiledSmalltalkGrammar.
    
    time := Time millisecondsToRun: [
        PPSmalltalkGrammar new compileWithConfiguration: configuration.
    ].
    Transcript show: 'Smalltalk Grammar compiled in: '; show: time asString; show: 'ms'; cr.

    "Modified: / 10-05-2015 / 07:57:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !