--- a/PPPredicateTest.st Sat Dec 01 15:29:54 2012 +0100
+++ b/PPPredicateTest.st Sat Dec 01 16:08:06 2012 +0100
@@ -39,14 +39,18 @@
!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 |
+ 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'.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: parser fail: (String with: Character return)
+ ] ifFalse:[
+ self assert: parser fail: (String with: Character cr)
+ ].
!
testChar
@@ -61,10 +65,14 @@
!
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.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: parser parse: (String with: Character return) to: Character return
+ ] ifFalse:[
+ self assert: parser parse: (String with: Character cr) to: Character cr
+ ]
!
testDigit
@@ -123,12 +131,16 @@
!
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 |
+ parser := #newline asParser.
+ self assertCharacterSets: parser.
+ Smalltalk isSmalltalkX ifTrue:[
+ self assert: parser parse: (String with: Character return) to: Character return.
+ ] ifFalse:[
+ 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: ' '
!
testPunctuation
@@ -288,11 +300,11 @@
!PPPredicateTest class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.3 2012-05-04 22:08:04 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.4 2012-12-01 15:08:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.3 2012-05-04 22:08:04 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateTest.st,v 1.4 2012-12-01 15:08:06 cg Exp $'
!
version_SVN