equal
deleted
inserted
replaced
26 self assert: parser parse: 's' to: ''. |
26 self assert: parser parse: 's' to: ''. |
27 self assert: parser parse: 'as' to: 'a'. |
27 self assert: parser parse: 'as' to: 'a'. |
28 self assert: parser parse: 'aas' to: 'aa'. |
28 self assert: parser parse: 'aas' to: 'aa'. |
29 self assert: parser parse: 'sa' to: '' end: 1. |
29 self assert: parser parse: 'sa' to: '' end: 1. |
30 self assert: parser parse: 'saa' to: '' end: 1. |
30 self assert: parser parse: 'saa' to: '' end: 1. |
31 |
31 |
32 parser := [ :stream | stream upTo: $s. PPFailure message: 'stream' at: stream position ] asParser. |
32 parser := [ :stream | stream upTo: $s. PPFailure message: 'stream' at: stream position ] asParser. |
33 self assert: parser fail: ''. |
33 self assert: parser fail: ''. |
34 self assert: parser fail: 's'. |
34 self assert: parser fail: 's'. |
35 self assert: parser fail: 'as' |
35 self assert: parser fail: 'as' |
36 |
36 |
37 ! |
37 ! |
38 |
38 |
39 testEpsilon |
39 testEpsilon |
40 | parser | |
40 | parser | |
41 parser := nil asParser. |
41 parser := nil asParser. |
58 parser := $a asParser. |
58 parser := $a asParser. |
59 self assert: parser asParser = parser |
59 self assert: parser asParser = parser |
60 ! |
60 ! |
61 |
61 |
62 testRange |
62 testRange |
63 | parser | |
63 | parser | |
64 parser := $a ppMinus: $c. |
64 parser := $a ppMinus: $c. |
65 self assert: parser parse: 'a' to: $a. |
65 self assert: parser parse: 'a' to: $a. |
66 self assert: parser parse: 'b' to: $b. |
66 self assert: parser parse: 'b' to: $b. |
67 self assert: parser parse: 'c' to: $c. |
67 self assert: parser parse: 'c' to: $c. |
68 self assert: parser fail: 'd' |
68 self assert: parser fail: 'd' |
69 |
69 |
70 "Modified: / 19-12-2010 / 18:15:45 / Jan Kurs <kurs.jan@post.cz>" |
70 "Modified: / 19-12-2010 / 18:15:45 / Jan Kurs <kurs.jan@post.cz>" |
71 ! |
71 ! |
72 |
72 |
73 testString |
73 testString |
118 self assert: stream class = PPStream |
118 self assert: stream class = PPStream |
119 ! ! |
119 ! ! |
120 |
120 |
121 !PPExtensionTest class methodsFor:'documentation'! |
121 !PPExtensionTest class methodsFor:'documentation'! |
122 |
122 |
|
123 version |
|
124 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPExtensionTest.st,v 1.3 2012-05-04 22:10:26 vrany Exp $' |
|
125 ! |
|
126 |
|
127 version_CVS |
|
128 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPExtensionTest.st,v 1.3 2012-05-04 22:10:26 vrany Exp $' |
|
129 ! |
|
130 |
123 version_SVN |
131 version_SVN |
124 ^ '$Id: PPExtensionTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
132 ^ '§Id: PPExtensionTest.st 5 2010-12-19 17:38:27Z kursjan §' |
125 ! ! |
133 ! ! |