# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393963786 -3600
# Node ID 734a6ef2049e8046046d2c8b075179945aca9005
# Parent  6f800e49f6f67671be55c328a1d65cb23bc400e7
class: PPPredicateTest
changed:
        #testBlank
        #testNewline

diff -r 6f800e49f6f6 -r 734a6ef2049e PPPredicateTest.st
--- a/PPPredicateTest.st	Tue Mar 04 17:03:15 2014 +0100
+++ b/PPPredicateTest.st	Tue Mar 04 21:09:46 2014 +0100
@@ -40,14 +40,17 @@
 !PPPredicateTest methodsFor:'testing-chars'!
 
 testBlank
-	| parser |
-	parser := #blank asParser.
-	self assertCharacterSets: parser.
-	self assert: parser parse: (String with: Character space) to: Character space.
-	self assert: parser parse: (String with: Character tab) to: Character tab.
-	self assert: parser fail: ''.
-	self assert: parser fail: '1'.
-	self assert: parser fail: (String with: Character cr)
+        | parser cr|
+        parser := #blank asParser.
+        self assertCharacterSets: parser.
+        self assert: parser parse: (String with: Character space) to: Character space.
+        self assert: parser parse: (String with: Character tab) to: Character tab.
+        self assert: parser fail: ''.
+        self assert: parser fail: '1'.
+        cr := Smalltalk isSmalltalkX 
+            ifTrue:[Character return] 
+            ifFalse:[Character cr].
+        self assert: parser fail: (String with: cr)
 !
 
 testChar
@@ -129,12 +132,15 @@
 !
 
 testNewline
-	| parser |
-	parser := #newline asParser.
-	self assertCharacterSets: parser.
-	self assert: parser parse: (String with: Character cr) to: Character cr.
-	self assert: parser parse: (String with: Character lf) to: Character lf.
-	self assert: parser fail: ' '
+        | parser cr|
+        cr := Smalltalk isSmalltalkX 
+                ifTrue:[Character return] 
+                ifFalse:[Character cr].
+        parser := #newline asParser.
+        self assertCharacterSets: parser.
+        self assert: parser parse: (String with: cr) to: cr.
+        self assert: parser parse: (String with: Character lf) to: Character lf.
+        self assert: parser fail: ' '
 !
 
 testPunctuation
@@ -294,14 +300,14 @@
 !PPPredicateTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: PPPredicateTest.st,v 1.5 2014-03-04 14:34:22 cg Exp $'
+    ^ '$Id: PPPredicateTest.st,v 1.6 2014-03-04 20:09:46 cg Exp $'
 ! !