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 := (Interval from: $a to: $c) asParser. |
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: / 05-10-2014 / 00:02:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
82 ! |
80 ! |
83 |
81 |
84 testSequence |
82 testSequence |
85 | parser | |
83 | parser | |
86 parser := #(1 2) asSequenceParser. |
84 parser := #(1 2) asSequenceParser. |