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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TestResource subclass:#PPTokenizedLL1ExpressionGrammarResource

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Extras-Tests-Expressions'

    10 !

    11 

    12 !PPTokenizedLL1ExpressionGrammarResource methodsFor:'as yet unclassified'!

    13 

    14 setUp

    15     | time configuration |

    16     configuration := PPCTokenizingConfiguration new.

    17     configuration arguments name:#PPTokenizedLL1ExpressionGrammar.

    18     

    19     

    20     time := Time millisecondsToRun: [

    21         PPLL1ExpressionGrammar new compileWithConfiguration: configuration.

    22     ].

    23     Transcript crShow: 'LL1 Expression grammar tokenized in: ', time asString, 'ms'.

    24     

    25 ! !

    26