equal
deleted
inserted
replaced
69 parser := $a asParser. |
69 parser := $a asParser. |
70 self assert: parser asParser equals: parser |
70 self assert: parser asParser equals: parser |
71 ! |
71 ! |
72 |
72 |
73 testRange |
73 testRange |
74 | parser | |
74 | parser | |
75 parser := $a - $c. |
75 parser := ($a to: $c) asParser. |
76 self assert: parser parse: 'a' to: $a. |
76 self assert: parser parse: 'a' to: $a. |
77 self assert: parser parse: 'b' to: $b. |
77 self assert: parser parse: 'b' to: $b. |
78 self assert: parser parse: 'c' to: $c. |
78 self assert: parser parse: 'c' to: $c. |
79 self assert: parser fail: 'd' |
79 self assert: parser fail: 'd' |
|
80 |
|
81 "Modified: / 03-10-2014 / 03:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
80 ! |
82 ! |
81 |
83 |
82 testSequence |
84 testSequence |
83 | parser | |
85 | parser | |
84 parser := #(1 2) asSequenceParser. |
86 parser := #(1 2) asSequenceParser. |