Portability: fixes for Smalltalk/X
* Do not use detect:ifFound: - not present in Smalltalk/X
* Removed leftover debugging code (Halt if:, ...)
* Do not use `aClass methods`, use `aClass methodDictionary values`
* Do not use #allPairsDo; - not present in Smalltalk/X
* Do not use #crShow: - not present in Smalltalk/X
* On Smalltalk?X use Filename - there's no FileReference in Smalltalk/X
* Do not use CharacterSet, use String
"{ 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 LL1.
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
].
"
! !