equal
deleted
inserted
replaced
1 "{ Package: 'squeak:petitparser' }" |
1 "{ Package: 'stx:goodies/petitparser' }" |
2 |
2 |
3 PPAbstractParseTest subclass:#PPExtensionTest |
3 PPAbstractParseTest subclass:#PPExtensionTest |
4 instanceVariableNames:'' |
4 instanceVariableNames:'' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
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 |
119 ! ! |
119 ! ! |
120 |
120 |
121 !PPExtensionTest class methodsFor:'documentation'! |
121 !PPExtensionTest class methodsFor:'documentation'! |
122 |
122 |
123 version_SVN |
123 version_SVN |
124 ^ '$Id: PPExtensionTest.st,v 1.1 2011-08-18 18:56:17 cg Exp $' |
124 ^ '$Id: PPExtensionTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
125 ! ! |
125 ! ! |