6 	instanceVariableNames:'scanner result'

     6 	instanceVariableNames:'scanner result'

     7 	classVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Tests-Scanner'

     9 	category:'PetitCompiler-Tests-Scanner'

    10 !

    10 !

    11 

    12 

    12 !FooScannerTest methodsFor:'as yet unclassified'!

    13 !FooScannerTest methodsFor:'as yet unclassified'!

    13 

    14 

    14 fail: stream rule: rule 

    15 fail: stream rule: rule 

    15     scanner initialize.

    16     scanner initialize.

   170     self parse: 'a' token: #A2 rule: #nextMultiTokenA position: 1.

   171     self parse: 'a' token: #A2 rule: #nextMultiTokenA position: 1.

   171     

   172     

   172     self fail: 'b' rule: #nextMultiTokenA.

   173     self fail: 'b' rule: #nextMultiTokenA.

   173 ! !

   174 ! !

   174 

   175