30 tearDown

    30 tearDown

    31     | parserClass |

    31     | parserClass |

    32 

    32 

    33     parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]).

    33     parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]).

    34     parserClass notNil ifTrue:[ 

    34     parserClass notNil ifTrue:[ 

    36     ].

    36     ].

    37 

    37 

    38     "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    38     "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    39 ! !

    39 ! !

    40 

    40 

   444 

   444 

   445 testTrimmingToken

   445 testTrimmingToken

   446     parser := (#letter asParser, (#digit asParser / #letter asParser) star) trimmingToken compileWithConfiguration: configuration.

   446     parser := (#letter asParser, (#digit asParser / #letter asParser) star) trimmingToken compileWithConfiguration: configuration.

   447 

   447 

   448     self assert: parser class methodDictionary size = 4.

   448     self assert: parser class methodDictionary size = 4.

   450     self assert: parser parse: 'foo'.

   449     self assert: parser parse: 'foo'.

   451     self assert: result inputValue = 'foo'.

   450     self assert: result inputValue = 'foo'.

   452 

   451 

   453     self assert: context invocationCount = 6.

   452     self assert: context invocationCount = 6.

   454     self assert: context rememberCount = 0.

   453     self assert: context rememberCount = 0.