1 "{ Package: 'stx:goodies/petitparser/compiler/tests' }"

     2 

     3 TestResource subclass:#PPCompiledSmalltalkGrammarResource

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Tests-Smalltalk'

     8 !

     9 

    10 PPCompiledSmalltalkGrammarResource comment:''

    11 !

    12 

    13 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!

    14 

    15 setUp

    16 	| time |

    17 	time := Time millisecondsToRun: [

    18 	PPSmalltalkGrammar new compile: #PPCompiledSmalltalkGrammar

    19 	].

    20 	Transcript crShow: 'Grammar compiled in: ', time asString, 'ms'.

    21 	

    22 ! !

    23