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