compiler/tests/PPCOptimizeChoicesTest.st
changeset 535 a8feb0f47574
parent 534 a949c4fe44df
child 537 fb212e14d1f4
equal deleted inserted replaced
534:a949c4fe44df 535:a8feb0f47574
    20     super setUp.
    20     super setUp.
    21 
    21 
    22     visitor := PPCOptimizeChoices new.
    22     visitor := PPCOptimizeChoices new.
    23     
    23     
    24     options := PPCCompilationOptions default
    24     options := PPCCompilationOptions default
    25         profile: true.
    25                     profile: true;
       
    26                     generate: false;
       
    27                     tokenize: false;
       
    28                     yourself.
    26                 
    29                 
    27     configuration := PPCPluggableConfiguration on: [ :_self | 
    30     configuration := PPCConfiguration new.
    28         _self runPass: PPCCacheFirstFollowPass.
    31     configuration passes: 
    29     ].
    32                         {
       
    33                             PPCCacheFirstFollowPass.
       
    34                         }.
    30     configuration options: options.
    35     configuration options: options.
    31 
    36 
    32     "Modified: / 29-08-2015 / 07:30:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    37     "Modified: / 04-09-2015 / 16:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    33 !
    38 !
    34 
    39 
    35 testHasCommonPrefix
    40 testHasCommonPrefix
    36     | foo bar |
    41     | foo bar |
    37     foo := 'foo' asParser name: 'foo'; yourself.
    42     foo := 'foo' asParser name: 'foo'; yourself.