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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCompositeParserTest subclass:#PPCLRPParserSmokeTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

    12 !PPCLRPParserSmokeTest class methodsFor:'accessing'!

    13 

    14 resources

    15     ^ (OrderedCollection with: PPCLRPSourcesResource)

    16         addAll: super resources;

    17         yourself

    18 

    19     "Created: / 30-07-2015 / 19:07:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    20 ! !

    21 

    22 !PPCLRPParserSmokeTest methodsFor:'accessing'!

    23 

    24 parserClass

    25     "superclass PPCompositeParserTest says that I am responsible to implement this method"

    26 

    27     ^ PPCLRPParser

    28 

    29     "Modified: / 30-07-2015 / 19:07:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    30 ! !

    31 

    32 !PPCLRPParserSmokeTest methodsFor:'tests'!

    33 

    34 testSmoke1

    35     PPCLRPSourcesResource current sources do:[:source | 

    36         self parse: source

    37     ].

    38 

    39     "Created: / 30-07-2015 / 19:07:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    40 ! !

    41