--- a/compiler/tests/extras/PPTokenizedSmalltalkParserResource.st Fri Jul 24 15:06:54 2015 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,39 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"
-
-"{ NameSpace: Smalltalk }"
-
-TestResource subclass:#PPTokenizedSmalltalkParserResource
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'PetitCompiler-Extras-Tests-Smalltalk'
-!
-
-!PPTokenizedSmalltalkParserResource methodsFor:'as yet unclassified'!
-
-setUp
- | time configuration |
- configuration := PPCConfiguration tokenizing.
- configuration arguments parserName:#PPTokenizedSmalltalkParser.
-
- time := Time millisecondsToRun: [
- PPSmalltalkParser new compileWithConfiguration: configuration.
- ].
- Transcript show: 'Smalltalk Parser 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: #PPTokenizedSmalltalkParser ifAbsent: [nil]).
- self flag: 'uncomment:'.
-"
- parserClass notNil ifTrue:[
- parserClass removeFromSystem
- ].
-"
-! !
-