equal
deleted
inserted
replaced
57 self assert: parser fail: '1'. |
57 self assert: parser fail: '1'. |
58 self assert: parser fail: 'a' |
58 self assert: parser fail: 'a' |
59 ! |
59 ! |
60 |
60 |
61 testCr |
61 testCr |
62 | parser | |
62 | parser | |
63 parser := #cr asParser. |
63 parser := #cr asParser. |
64 self assertCharacterSets: parser. |
64 self assertCharacterSets: parser. |
65 self assert: parser parse: (String with: Character cr) to: Character cr |
65 self assert: parser parse: (String with: (Character codePoint: 13)) to: (Character codePoint: 13) |
|
66 |
|
67 "Modified: / 04-10-2014 / 12:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
66 ! |
68 ! |
67 |
69 |
68 testDigit |
70 testDigit |
69 | parser | |
71 | parser | |
70 parser := #digit asParser. |
72 parser := #digit asParser. |