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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCompositeParserTest subclass:#PPCompiledSmalltalkParserTests

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

    12 !PPCompiledSmalltalkParserTests class methodsFor:'as yet unclassified'!

    13 

    14 resources

    15     ^ (OrderedCollection with: PPCompiledSmalltalkParserResource)

    16         addAll: super resources;

    17         yourself

    18 ! !

    19 

    20 !PPCompiledSmalltalkParserTests methodsFor:'as yet unclassified'!

    21 

    22 context

    23     ^ PPCContext new

    24 !

    25 

    26 parserClass

    27     ^ Smalltalk at: #PPCompiledSmalltalkParser

    28 !

    29 

    30 parserInstanceFor: aSymbol

    31     ^ (Smalltalk at: #PPCompiledSmalltalkParser) new startSymbol: aSymbol

    32 !

    33 

    34 testBlock1

    35     self 

    36         parse: '[]'

    37         rule: #block

    38 ! !

    39