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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCSmalltalkVerificationTest subclass:#PPTokenizedSmalltalkVerificationTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

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

    13 

    14 resources

    15     ^ (OrderedCollection with: PPTokenizedSmalltalkGrammarResource)

    16         addAll: super resources;

    17         yourself

    18 ! !

    19 

    20 !PPTokenizedSmalltalkVerificationTest methodsFor:'accessing'!

    21 

    22 compiledSmalltalkGrammarClass

    23     ^ (Smalltalk at: #PPTokenizedSmalltalkGrammar)

    24 ! !

    25 

    26 !PPTokenizedSmalltalkVerificationTest methodsFor:'tests'!

    27 

    28 testSmalltalk

    29     super testSmalltalk

    30 !

    31 

    32 testSmalltalkClass

    33     super testSmalltalkClass

    34 !

    35 

    36 testSmalltalkObject

    37     super testSmalltalkObject

    38 ! !

    39