compiler/tests/extras/PPTokenizedSmalltalkGrammarResource.st
changeset 515 b5316ef15274
parent 502 1e45d3c96ec5
child 516 3b81c9e53352
child 524 f6f68d32de73
--- a/compiler/tests/extras/PPTokenizedSmalltalkGrammarResource.st	Fri Jul 24 15:06:54 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,47 +0,0 @@
-"{ 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> $'
-! !
-