Checkin from browser
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sat, 05 May 2012 00:09:07 +0200
changeset 50 db1ecd258e0c
parent 49 9852b214d4dd
child 51 8c02dc8bbf08
Checkin from browser
PPAbstractParseTest.st
--- a/PPAbstractParseTest.st	Sat May 05 00:08:57 2012 +0200
+++ b/PPAbstractParseTest.st	Sat May 05 00:09:07 2012 +0200
@@ -28,12 +28,12 @@
 
 assert: aParser fail: aCollection end: anInteger
 	| stream result |
-	self
+	self 
 		assert: aParser isPetitParser
 		description: 'Parser invalid'.
 	stream := aCollection asPetitStream.
 	result := aParser parse: stream.
-	self
+	self 
 		assert: result isPetitFailure
 		description: 'Parser did not fail'.
 	self
@@ -42,7 +42,7 @@
 !
 
 assert: aParser parse: aCollection
-	self assert: aParser parse: aCollection to: nil end: aCollection size
+	self assert: aParser parse: aCollection to: nil end: aCollection size 
 !
 
 assert: aParser parse: aCollection end: anInteger
@@ -50,22 +50,22 @@
 !
 
 assert: aParser parse: aCollection to: anObject
-	self assert: aParser parse: aCollection to: anObject end: aCollection size
+	self assert: aParser parse: aCollection to: anObject end: aCollection size 
 !
 
 assert: aParser parse: aParseObject to: aTargetObject end: anInteger
-	| stream result |
-	self
-		assert: aParser isPetitParser
-		description: 'Parser invalid'.
-	stream := aParseObject asPetitStream.
-	result := aParser parse: stream.
-	aTargetObject isNil
-		ifTrue: [ self deny: result isPetitFailure ]
-		ifFalse: [ self assert: result = aTargetObject ].
-	self
-		assert: stream position = anInteger
-		description: 'Parser accepted at wrong position'
+        | stream result |
+        self 
+                assert: aParser isPetitParser
+                description: 'Parser invalid'.
+        stream := aParseObject asPetitStream.
+        result := aParser parse: stream.
+        aTargetObject isNil
+                ifTrue: [ self deny: result isPetitFailure ]
+                ifFalse: [ self assert: result = aTargetObject ].
+        self 
+                assert: stream position = anInteger
+                description: 'Parser accepted at wrong position'
 
     "Modified: / 18-12-2010 / 18:01:30 / Jan Kurs <kurs.jan@post.cz>"
 !
@@ -84,6 +84,14 @@
 
 !PPAbstractParseTest class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPAbstractParseTest.st,v 1.3 2012-05-04 22:09:07 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPAbstractParseTest.st,v 1.3 2012-05-04 22:09:07 vrany Exp $'
+!
+
 version_SVN
-    ^ '$Id: PPAbstractParseTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+    ^ 'žId: PPAbstractParseTest.st 4 2010-12-18 17:02:23Z kursjan ž'
 ! !