diff -r f6d77fee9811 -r 1e45d3c96ec5 compiler/tests/extras/PPTokenizedSmalltalkParserResource.st --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/compiler/tests/extras/PPTokenizedSmalltalkParserResource.st Fri Jul 24 15:06:54 2015 +0100 @@ -0,0 +1,39 @@ +"{ 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 " +! + +tearDown + | parserClass | + super tearDown. + + parserClass := (Smalltalk at: #PPTokenizedSmalltalkParser ifAbsent: [nil]). + self flag: 'uncomment:'. +" + parserClass notNil ifTrue:[ + parserClass removeFromSystem + ]. +" +! ! +