equal
deleted
inserted
replaced
29 tearDown |
29 tearDown |
30 | parserClass | |
30 | parserClass | |
31 |
31 |
32 parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]). |
32 parserClass := (Smalltalk at: arguments parserName ifAbsent: [nil]). |
33 parserClass notNil ifTrue:[ |
33 parserClass notNil ifTrue:[ |
34 parserClass removeFromSystem |
34 "parserClass removeFromSystem" |
35 ]. |
35 ]. |
36 |
36 |
37 "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 "Modified: / 24-07-2015 / 19:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
38 ! ! |
38 ! ! |
39 |
39 |
443 |
443 |
444 testTrimmingToken |
444 testTrimmingToken |
445 parser := (#letter asParser, (#digit asParser / #letter asParser) star) trimmingToken compileWithConfiguration: configuration. |
445 parser := (#letter asParser, (#digit asParser / #letter asParser) star) trimmingToken compileWithConfiguration: configuration. |
446 |
446 |
447 self assert: parser class methodDictionary size = 4. |
447 self assert: parser class methodDictionary size = 4. |
448 |
|
449 self assert: parser parse: 'foo'. |
448 self assert: parser parse: 'foo'. |
450 self assert: result inputValue = 'foo'. |
449 self assert: result inputValue = 'foo'. |
451 |
450 |
452 self assert: context invocationCount = 6. |
451 self assert: context invocationCount = 6. |
453 self assert: context rememberCount = 0. |
452 self assert: context rememberCount = 0. |