--- a/PPLambdaParserTest.st Sat May 05 00:05:05 2012 +0200
+++ b/PPLambdaParserTest.st Sat May 05 00:05:16 2012 +0200
@@ -63,41 +63,41 @@
!PPLambdaParserTest methodsFor:'testing-utilities'!
testParseOnError
- | beenHere |
- result := self parserClass
- parse: '\x.y'
- onError: [ self fail ].
- self assert: result = #('x' 'y').
-
- beenHere := false.
- result := self parserClass
- parse: '\x.'
- onError: [ beenHere := true ].
- self assert: beenHere.
+ | beenHere |
+ result := self parserClass
+ parse: '\x.y'
+ onError: [ self fail ].
+ self assert: result = #('x' 'y').
+
+ beenHere := false.
+ result := self parserClass
+ parse: '\x.'
+ onError: [ beenHere := true ].
+ self assert: beenHere.
+
+ beenHere := false.
+ result := self parserClass
+ parse: '\x.'
+ onError: [ :fail | beenHere := true. fail ].
+ self assert: beenHere.
+ "We don't use $ before character sign in ST/X"
+ self assert: (result message includesSubString: '(').
+"/ self assert: (result message includesSubString: '$(').
+ self assert: (result message includesSubString: 'expected').
+ self assert: (result position = 0).
- beenHere := false.
- result := self parserClass
- parse: '\x.'
- onError: [ :fail | beenHere := true. fail ].
- self assert: beenHere.
- "We don't use $ before character sign in ST/X"
- self assert: (result message includesSubString: '(').
-"/ self assert: (result message includesSubString: '$(').
- self assert: (result message includesSubString: 'expected').
- self assert: (result position = 0).
-
- beenHere := false.
- result := self parserClass
- parse: '\x.'
- onError: [ :msg :pos |
- "We don't use $ before character sign in ST/X"
- self assert: (msg includesSubString: '(').
+ beenHere := false.
+ result := self parserClass
+ parse: '\x.'
+ onError: [ :msg :pos |
+ "We don't use $ before character sign in ST/X"
+ self assert: (msg includesSubString: '(').
"/ self assert: (msg includesSubString: '$(').
- self assert: (msg includesSubString: 'expected').
- self assert: (pos = 0).
- beenHere := true ].
- self assert: result.
- self assert: beenHere
+ self assert: (msg includesSubString: 'expected').
+ self assert: (pos = 0).
+ beenHere := true ].
+ self assert: result.
+ self assert: beenHere
"Modified: / 19-12-2010 / 16:52:33 / Jan Kurs <kurs.jan@post.cz>"
!
@@ -109,14 +109,14 @@
startingAt: #variable
onError: [ self fail ].
self assert: result = 'x'.
-
+
beenHere := false.
result := self parserClass
parse: '\'
startingAt: #variable
onError: [ beenHere := true ].
self assert: beenHere.
-
+
beenHere := false.
result := self parserClass
parse: '\'
@@ -130,7 +130,7 @@
result := self parserClass
parse: '\'
startingAt: #variable
- onError: [ :msg :pos |
+ onError: [ :msg :pos |
self assert: msg = 'letter expected'.
self assert: pos = 0.
beenHere := true ].
@@ -140,16 +140,24 @@
testProductionAt
self assert: (parser productionAt: #foo) isNil.
self assert: (parser productionAt: #foo ifAbsent: [ true ]).
-
+
self assert: (parser productionAt: #start) notNil.
self assert: (parser productionAt: #start ifAbsent: [ true ]) notNil.
-
+
self assert: (parser productionAt: #variable) notNil.
self assert: (parser productionAt: #variable ifAbsent: [ true ]) notNil
! !
!PPLambdaParserTest class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.3 2012-05-04 22:05:16 vrany Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLambdaParserTest.st,v 1.3 2012-05-04 22:05:16 vrany Exp $'
+!
+
version_SVN
- ^ '$Id: PPLambdaParserTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+ ^ '§Id: PPLambdaParserTest.st 5 2010-12-19 17:38:27Z kursjan §'
! !