--- a/tests/PPPredicateTest.st Fri Oct 03 03:11:33 2014 +0100
+++ b/tests/PPPredicateTest.st Sun Oct 05 00:05:20 2014 +0100
@@ -59,10 +59,12 @@
!
testCr
- | parser |
- parser := #cr asParser.
- self assertCharacterSets: parser.
- self assert: parser parse: (String with: Character cr) to: Character cr
+ | parser |
+ parser := #cr asParser.
+ self assertCharacterSets: parser.
+ self assert: parser parse: (String with: (Character codePoint: 13)) to: (Character codePoint: 13)
+
+ "Modified: / 04-10-2014 / 12:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testDigit