# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1336169284 -7200
# Node ID 16f1a2fdc0d7949bc69fdd73232b1b0282fed3c2
# Parent  4bc103d5f559e2e73ed771aad9dcb734f407861b
Checkin from browser

diff -r 4bc103d5f559 -r 16f1a2fdc0d7 PPPredicateTest.st
--- a/PPPredicateTest.st	Sat May 05 00:06:22 2012 +0200
+++ b/PPPredicateTest.st	Sat May 05 00:08:04 2012 +0200
@@ -11,9 +11,9 @@
 !PPPredicateTest methodsFor:'private'!
 
 charactersDo: aBlock
-	"The limits are 1-255 as far as I know"
-	self breakPoint: #petitparser.
-	1 to: 255 do: [ :index | aBlock value: (Character codePoint: index) ]
+        "The limits are 1-255 as far as I know"
+        self breakPoint: #petitparser.
+        1 to: 255 do: [ :index | aBlock value: (Character codePoint: index) ]
 "/        1 to: 256 do: [ :index | aBlock value: (Character codePoint: index) ]
 
     "Modified: / 19-12-2010 / 16:58:58 / Jan Kurs <kurs.jan@post.cz>"
@@ -27,7 +27,7 @@
 	parser := PPPredicateObjectParser on: block message: 'starlet'.
 	self assert: parser block = block.
 	self assert: parser message = 'starlet'.
-
+	
 	self assertCharacterSets: parser.
 	self assert: parser parse: '*' to: $*.
 	self assert: parser parse: '**' to: $* end: 1.
@@ -236,8 +236,8 @@
 
 testSequenceParser
 	| parser |
-	parser := PPPredicateSequenceParser
-		on: [ :value | value first isUppercase ]
+	parser := PPPredicateSequenceParser 
+		on: [ :value | value first isUppercase ] 
 		message: 'uppercase 3 letter words'
 		size: 3.
 	self assert: parser size = 3.
@@ -247,7 +247,7 @@
 	self assert: parser fail: 'abc'.
 	self assert: parser fail: 'aBC'.
 	self assert: parser fail: 'Ab'.
-
+	
 	parser := parser negate.
 	self assert: parser size = 3.
 	self assert: parser fail: 'Abc'.
@@ -266,11 +266,11 @@
 	| positives negatives |
 	positives := self parsedCharacterSet: aParser.
 	negatives := self parsedCharacterSet: aParser negate.
-	self charactersDo: [ :char |
+	self charactersDo: [ :char | 
 		| positive negative |
 		positive := positives includes: char.
 		negative := negatives includes: char.
-		self
+		self 
 			assert: ((positive and: [ negative not ])
 				or: [ positive not and: [ negative ] ])
 			description: char printString , ' should be in exactly one set' ]
@@ -287,6 +287,14 @@
 
 !PPPredicateTest class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.3 2012-05-04 22:08:04 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.3 2012-05-04 22:08:04 vrany Exp $'
+!
+
 version_SVN
-    ^ '$Id: PPPredicateTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+    ^ '§Id: PPPredicateTest.st 5 2010-12-19 17:38:27Z kursjan §'
 ! !