equal
deleted
inserted
replaced
550 identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier. |
550 identifier := (kw not, (#letter asParser, #word asParser star)) trimmingToken name: #identifier. |
551 |
551 |
552 parser := identifier / kw. |
552 parser := identifier / kw. |
553 parser := parser compileWithConfiguration: configuration. |
553 parser := parser compileWithConfiguration: configuration. |
554 self assert: parser class methodDictionary size = 8. |
554 self assert: parser class methodDictionary size = 8. |
555 self assert: (parser class methods anySatisfy: [ :m | m selector = #kw ]). |
555 self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw ]). |
556 self assert: (parser class methods anySatisfy: [ :m | m selector = #kw_fast ]). |
556 self assert: (parser class methodDictionary values anySatisfy: [ :m | m selector = #kw_fast ]). |
557 |
557 |
558 self assert: parser parse: 'foo'. |
558 self assert: parser parse: 'foo'. |
559 self assert: result inputValue = 'foo'. |
559 self assert: result inputValue = 'foo'. |
560 |
560 |
561 self assert: parser parse: 'false'. |
561 self assert: parser parse: 'false'. |
562 self assert: result inputValue = 'false'. |
562 self assert: result inputValue = 'false'. |
|
563 |
|
564 "Modified: / 10-05-2015 / 07:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
563 ! ! |
565 ! ! |
564 |
566 |
565 !PPCPrototype1Test methodsFor:'tests - ids'! |
567 !PPCPrototype1Test methodsFor:'tests - ids'! |
566 |
568 |
567 setUp |
569 setUp |