"{ 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 parserName:#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> $'
! !