--- 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 §'
! !