compiler/tests/extras/PPTokenizedSmalltalkParserResource.st
changeset 510 869853decf31
parent 509 fd22630c7e62
child 511 527038bc8edf
--- a/compiler/tests/extras/PPTokenizedSmalltalkParserResource.st	Fri Jul 31 08:22:18 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
-    ].
-"
-! !
-