--- a/tests/PPPredicateTest.st Wed Nov 19 10:52:37 2014 +0000
+++ b/tests/PPPredicateTest.st Mon Nov 24 00:09:23 2014 +0000
@@ -11,9 +11,7 @@
!PPPredicateTest methodsFor:'private'!
charactersDo: aBlock
- 0 to: 255 do: [ :index | aBlock value: (Character codePoint: index) ]
-
- "Modified: / 03-11-2014 / 09:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ 1 to: 256 do: [ :index | aBlock value: (Character codePoint: index) ]
! !
!PPPredicateTest methodsFor:'testing'!
@@ -324,14 +322,12 @@
!
parsedCharacterSet: aParser
- | result |
- result := String new writeStream.
- self charactersDo: [ :char |
- (aParser matches: char asString)
- ifTrue: [ result nextPut: char ] ].
- ^ result contents
-
- "Modified: / 03-11-2014 / 09:16:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ | result |
+ result := String new writeStream.
+ self charactersDo: [ :char |
+ (aParser matches: (char asString))
+ ifTrue: [ result nextPut: char ] ].
+ ^ result contents
! !
!PPPredicateTest class methodsFor:'documentation'!