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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TestResource subclass:#PPCompiledSmalltalkGrammarResource

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Tests-Smalltalk'

    10 !

    11 

    12 !PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!

    13 

    14 setUp

    15 	| time |

    16 	time := Time millisecondsToRun: [

    17 		PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar

    18 	].

    19 	Transcript show: 'Smalltalk Grammar compiled in: ', time asString, 'ms'; cr.

    20 	

    21 ! !

    22