# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1336169116 -7200
# Node ID d602818dd055dce2a4a1f9bce5d74f2ab9315fb6
# Parent  4fe8e6295f9ee7050aad64397b95e423b523aaf8
Checkin from browser

diff -r 4fe8e6295f9e -r d602818dd055 PPLambdaParserTest.st
--- 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 §'
 ! !