61 ! ! |
61 ! ! |
62 |
62 |
63 !PPLambdaParserTest methodsFor:'testing-utilities'! |
63 !PPLambdaParserTest methodsFor:'testing-utilities'! |
64 |
64 |
65 testParseOnError |
65 testParseOnError |
66 | beenHere | |
66 | beenHere | |
67 result := self parserClass |
67 result := self parserClass |
68 parse: '\x.y' |
68 parse: '\x.y' |
69 onError: [ self fail ]. |
69 onError: [ self fail ]. |
70 self assert: result = #('x' 'y'). |
70 self assert: result = #('x' 'y'). |
71 |
|
72 beenHere := false. |
|
73 result := self parserClass |
|
74 parse: '\x.' |
|
75 onError: [ beenHere := true ]. |
|
76 self assert: beenHere. |
|
77 |
|
78 beenHere := false. |
|
79 result := self parserClass |
|
80 parse: '\x.' |
|
81 onError: [ :fail | beenHere := true. fail ]. |
|
82 self assert: beenHere. |
|
83 "We don't use $ before character sign in ST/X" |
|
84 self assert: (result message includesSubString: '('). |
|
85 "/ self assert: (result message includesSubString: '$('). |
|
86 self assert: (result message includesSubString: 'expected'). |
|
87 self assert: (result position = 0). |
|
88 |
71 |
89 beenHere := false. |
72 beenHere := false. |
90 result := self parserClass |
73 result := self parserClass |
91 parse: '\x.' |
74 parse: '\x.' |
92 onError: [ :msg :pos | |
75 onError: [ beenHere := true ]. |
93 "We don't use $ before character sign in ST/X" |
76 self assert: beenHere. |
94 self assert: (msg includesSubString: '('). |
|
95 "/ self assert: (msg includesSubString: '$('). |
|
96 self assert: (msg includesSubString: 'expected'). |
|
97 self assert: (pos = 0). |
|
98 beenHere := true ]. |
|
99 self assert: result. |
|
100 self assert: beenHere |
|
101 |
77 |
102 "Modified: / 19-12-2010 / 16:52:33 / Jan Kurs <kurs.jan@post.cz>" |
78 beenHere := false. |
|
79 result := self parserClass |
|
80 parse: '\x.' |
|
81 onError: [ :fail | beenHere := true. fail ]. |
|
82 self assert: beenHere. |
|
83 self assert: (result message findString: '$(') > 0. |
|
84 self assert: (result message findString: 'expected') > 0. |
|
85 self assert: (result position = 0). |
|
86 |
|
87 beenHere := false. |
|
88 result := self parserClass |
|
89 parse: '\x.' |
|
90 onError: [ :msg :pos | |
|
91 self assert: (msg findString: '$(') > 0. |
|
92 self assert: (msg findString: 'expected') > 0. |
|
93 self assert: (pos = 0). |
|
94 beenHere := true ]. |
|
95 self assert: result. |
|
96 self assert: beenHere |
103 ! |
97 ! |
104 |
98 |
105 testParseStartingAtOnError |
99 testParseStartingAtOnError |
106 | beenHere | |
100 | beenHere | |
107 result := self parserClass |
101 result := self parserClass |
149 ! ! |
143 ! ! |
150 |
144 |
151 !PPLambdaParserTest class methodsFor:'documentation'! |
145 !PPLambdaParserTest class methodsFor:'documentation'! |
152 |
146 |
153 version |
147 version |
154 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.3 2012-05-04 22:05:16 vrany Exp $' |
148 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $' |
155 ! |
149 ! |
156 |
150 |
157 version_CVS |
151 version_CVS |
158 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.3 2012-05-04 22:05:16 vrany Exp $' |
152 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $' |
159 ! |
153 ! |
160 |
154 |
161 version_SVN |
155 version_SVN |
162 ^ '§Id: PPLambdaParserTest.st 5 2010-12-19 17:38:27Z kursjan §' |
156 ^ '$Id: PPLambdaParserTest.st,v 1.4 2014-03-04 14:34:18 cg Exp $' |
163 ! ! |
157 ! ! |
|
158 |