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

"{ NameSpace: Smalltalk }"

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


!PPTokenizedSmalltalkGrammarResource methodsFor:'as yet unclassified'!

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

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

tearDown
    | parserClass |
    super tearDown.
    
    parserClass := (Smalltalk at: #PPTokenizedSmalltalkGrammar ifAbsent: [nil]).
    self flag: 'uncomment:'.
"	
    parserClass notNil ifTrue:[ 
        parserClass removeFromSystem
    ].
"
! !

!PPTokenizedSmalltalkGrammarResource class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !