--- a/PPParserTest.st Mon Sep 12 19:48:53 2011 +0200
+++ b/PPParserTest.st Fri Jan 13 12:22:50 2012 +0100
@@ -1,4 +1,4 @@
-"{ Package: 'squeak:petitparser' }"
+"{ Package: 'stx:goodies/petitparser' }"
PPAbstractParseTest subclass:#PPParserTest
instanceVariableNames:''
@@ -23,10 +23,10 @@
testAnd
| parser |
parser := 'foo' asParser flatten , 'bar' asParser flatten and.
-
+
self assert: parser parse: 'foobar' to: #('foo' 'bar') end: 3.
self assert: parser fail: 'foobaz'.
-
+
parser := 'foo' asParser and.
self assert: parser and = parser
!
@@ -34,9 +34,9 @@
testAnswer
| parser |
parser := $a asParser answer: $b.
-
+
self assert: parser parse: 'a' to: $b.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'
!
@@ -44,7 +44,7 @@
testBlock
| parser |
parser := [ :s | s next ] asParser.
-
+
self assert: parser parse: 'ab' to: $a end: 1.
self assert: parser parse: 'b' to: $b.
self assert: parser parse: '' to: nil
@@ -53,7 +53,7 @@
testChoice
| parser |
parser := $a asParser / $b asParser.
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser parse: 'b' to: $b.
@@ -68,7 +68,7 @@
testDelimitedBy
| parser |
parser := $a asParser delimitedBy: $b asParser.
-
+
self assert: parser parse: 'a' to: #($a).
self assert: parser parse: 'aba' to: #($a $b $a).
self assert: parser parse: 'ababa' to: #($a $b $a $b $a).
@@ -76,12 +76,12 @@
self assert: parser parse: 'ab' to: #($a $b).
self assert: parser parse: 'abab' to: #($a $b $a $b).
self assert: parser parse: 'ababab' to: #($a $b $a $b $a $b).
-
+
self assert: parser parse: 'ac' to: #($a) end: 1.
self assert: parser parse: 'abc' to: #($a $b) end: 2.
self assert: parser parse: 'abac' to: #($a $b $a) end: 3.
self assert: parser parse: 'ababc' to: #($a $b $a $b) end: 4.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'.
self assert: parser fail: 'c'
@@ -91,7 +91,7 @@
| parser |
parser := PPEndOfInputParser on: $a asParser.
self assert: parser end = parser.
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser fail: ''.
self assert: parser fail: 'aa'
@@ -108,9 +108,9 @@
testEpsilon
| parser |
parser := nil asParser.
-
+
self assert: parser parse: '' to: nil.
-
+
self assert: parser parse: 'a' to: nil end: 0.
self assert: parser parse: 'ab' to: nil end: 0
!
@@ -119,11 +119,11 @@
| parser result |
parser := PPFailingParser message: 'Plonk'.
self assert: parser message = 'Plonk'.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'a'.
self assert: parser fail: 'aa'.
-
+
result := parser parse: 'a'.
self assert: result message = 'Plonk'.
self assert: result printString = 'Plonk at 0'
@@ -132,49 +132,49 @@
testFlatten
| parser |
parser := $a asParser flatten.
-
+
self assert: parser parse: 'a' to: 'a'.
self assert: parser parse: #($a) to: #($a).
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'
!
testLiteralObject
| parser |
- parser := PPLiteralObjectParser
+ parser := PPLiteralObjectParser
on: $a
message: 'letter "a" expected'.
self assert: parser literal = $a.
self assert: parser message = 'letter "a" expected'.
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser fail: 'b'
-
+
!
testLiteralObjectCaseInsensitive
| parser |
parser := $a asParser caseInsensitive.
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser parse: 'A' to: $A.
self assert: parser fail: ''.
self assert: parser fail: 'b'.
self assert: parser fail: 'B'
-
+
!
testLiteralSequence
| parser |
- parser := PPLiteralSequenceParser
+ parser := PPLiteralSequenceParser
on: 'abc'
message: 'sequence "abc" expected'.
self assert: parser size = 3.
self assert: parser literal = 'abc'.
self assert: parser message = 'sequence "abc" expected'.
-
+
self assert: parser parse: 'abc' to: 'abc'.
self assert: parser fail: 'ab'.
self assert: parser fail: 'abd'
@@ -183,12 +183,12 @@
testLiteralSequenceCaseInsensitive
| parser |
parser := 'abc' asParser caseInsensitive.
-
+
self assert: parser parse: 'abc' to: 'abc'.
self assert: parser parse: 'ABC' to: 'ABC'.
self assert: parser parse: 'abC' to: 'abC'.
self assert: parser parse: 'AbC' to: 'AbC'.
-
+
self assert: parser fail: 'ab'.
self assert: parser fail: 'abd'
!
@@ -204,7 +204,7 @@
self assert: parser parse: 'aa' to: #($a $a).
self assert: parser parse: 'aaa' to: #($a $a) end: 2.
self assert: parser parse: 'aaaa' to: #($a $a) end: 2.
-
+
self assert: (parser printString endsWith: '[0, 2]')
!
@@ -213,7 +213,7 @@
count := 0.
parser := [ :s | count := count + 1. s next ] asParser memoized.
twice := parser and , parser.
-
+
count := 0.
self assert: parser parse: 'a' to: $a.
self assert: count = 1.
@@ -221,7 +221,7 @@
count := 0.
self assert: twice parse: 'a' to: #($a $a).
self assert: count = 1.
-
+
self assert: parser memoized = parser
!
@@ -230,13 +230,13 @@
parser := $a asParser min: 2.
self assert: parser min = 2.
self assert: parser max > parser min.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'a'.
self assert: parser parse: 'aa' to: #($a $a).
self assert: parser parse: 'aaa' to: #($a $a $a).
self assert: parser parse: 'aaaa' to: #($a $a $a $a).
-
+
self assert: (parser printString endsWith: '[2, *]')
!
@@ -245,7 +245,7 @@
parser := $a asParser min: 2 max: 4.
self assert: parser min = 2.
self assert: parser max = 4.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'a'.
self assert: parser parse: 'aa' to: #($a $a).
@@ -253,19 +253,19 @@
self assert: parser parse: 'aaaa' to: #($a $a $a $a).
self assert: parser parse: 'aaaaa' to: #($a $a $a $a) end: 4.
self assert: parser parse: 'aaaaaa' to: #($a $a $a $a) end: 4.
-
+
self assert: (parser printString endsWith: '[2, 4]')
!
testNegate
| parser |
parser := 'foo' asParser negate.
-
+
self assert: parser parse: 'f' to: $f end: 1.
self assert: parser parse: 'fo' to: $f end: 1.
self assert: parser parse: 'fob' to: $f end: 1.
self assert: parser parse: 'ffoo' to: $f end: 1.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'foo'
!
@@ -273,7 +273,7 @@
testNot
| parser |
parser := 'foo' asParser flatten , 'bar' asParser flatten not.
-
+
self assert: parser parse: 'foobaz' to: #('foo' nil) end: 3.
self assert: parser fail: 'foobar'
!
@@ -281,10 +281,10 @@
testOptional
| parser |
parser := $a asParser optional.
-
+
self assert: parser parse: '' to: nil.
self assert: parser parse: 'a' to: $a.
-
+
self assert: parser parse: 'aa' to: $a end: 1.
self assert: parser parse: 'ab' to: $a end: 1.
self assert: parser parse: 'b' to: nil end: 0.
@@ -302,7 +302,7 @@
self assert: (parser permutation: #(3 1)) parse: '123' to: #($3 $1).
self assert: (parser permutation: #(2 2)) parse: '123' to: #($2 $2).
self assert: (parser permutation: #(3 2 1)) parse: '123' to: #($3 $2 $1).
-
+
self should: [ parser permutation: #(0) ] raise: Error.
self should: [ parser permutation: #(4) ] raise: Error.
self should: [ parser permutation: #($2) ] raise: Error
@@ -320,15 +320,15 @@
parser := $a asParser plus.
self assert: parser min = 1.
self assert: parser max > parser min.
-
+
self assert: parser parse: 'a' to: #($a).
self assert: parser parse: 'aa' to: #($a $a).
self assert: parser parse: 'aaa' to: #($a $a $a).
-
+
self assert: parser parse: 'ab' to: #($a) end: 1.
self assert: parser parse: 'aab' to: #($a $a) end: 2.
self assert: parser parse: 'aaab' to: #($a $a $a) end: 3.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'.
self assert: parser fail: 'ba'
@@ -377,16 +377,16 @@
testSeparatedBy
| parser |
parser := $a asParser separatedBy: $b asParser.
-
+
self assert: parser parse: 'a' to: #($a).
self assert: parser parse: 'aba' to: #($a $b $a).
self assert: parser parse: 'ababa' to: #($a $b $a $b $a).
-
+
self assert: parser parse: 'ab' to: #($a) end: 1.
self assert: parser parse: 'abab' to: #($a $b $a) end: 3.
self assert: parser parse: 'ac' to: #($a) end: 1.
self assert: parser parse: 'abac' to: #($a $b $a) end: 3.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'c'
!
@@ -394,12 +394,12 @@
testSequence
| parser |
parser := $a asParser , $b asParser.
-
+
self assert: parser parse: 'ab' to: #($a $b).
-
+
self assert: parser parse: 'aba' to: #($a $b) end: 2.
self assert: parser parse: 'abb' to: #($a $b) end: 2.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'a'.
self assert: parser fail: 'aa'.
@@ -412,12 +412,12 @@
parser := $a asParser star.
self assert: parser min = 0.
self assert: parser max > parser min.
-
+
self assert: parser parse: '' to: #().
self assert: parser parse: 'a' to: #($a).
self assert: parser parse: 'aa' to: #($a $a).
self assert: parser parse: 'aaa' to: #($a $a $a).
-
+
self assert: parser parse: 'b' to: #() end: 0.
self assert: parser parse: 'ab' to: #($a) end: 1.
self assert: parser parse: 'aab' to: #($a $a) end: 2.
@@ -471,7 +471,7 @@
testTimes
| parser |
parser := $a asParser times: 2.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'a'.
self assert: parser parse: 'aa' to: #($a $a).
@@ -482,13 +482,13 @@
| parser |
parser := $a asParser token.
self assert: parser tokenClass = PPToken.
- self assert: parser parse: 'a' toToken: 1 stop: 1.
+ self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser fail: 'b'.
self assert: parser fail: ''.
-
+
parser := $a asParser token: PPToken.
self assert: parser tokenClass = PPToken.
- self assert: parser parse: 'a' toToken: 1 stop: 1.
+ self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser fail: ''.
self assert: parser fail: 'b'
!
@@ -497,25 +497,25 @@
| parser |
parser := $a asParser token trim.
self assert: parser trim = parser.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
- self assert: parser parse: 'a ' toToken: 1 stop: 1.
+ self assert: parser parse: 'a ' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
- self assert: parser parse: 'a
+ self assert: parser parse: 'a
' toToken: 1 stop: 1.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: ' a' toToken: 2 stop: 2.
- self assert: parser parse: ' a' toToken: 2 stop: 2.
+ self assert: parser parse: ' a' toToken: 2 stop: 2.
self assert: parser parse: ' a' toToken: 5 stop: 5.
- self assert: parser parse: '
+ self assert: parser parse: '
a' toToken: 5 stop: 5.
-
+
self assert: parser parse: 'aa' toToken: 1 stop: 1 end: 1.
- self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
+ self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 3.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'
!
@@ -523,21 +523,21 @@
testTrimBlanks
| parser |
parser := $a asParser token trimBlanks.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
- self assert: parser parse: 'a ' toToken: 1 stop: 1.
+ self assert: parser parse: 'a ' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: ' a' toToken: 2 stop: 2.
- self assert: parser parse: ' a' toToken: 2 stop: 2.
+ self assert: parser parse: ' a' toToken: 2 stop: 2.
self assert: parser parse: ' a' toToken: 5 stop: 5.
-
+
self assert: parser parse: 'aa' toToken: 1 stop: 1 end: 1.
- self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
+ self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 3.
-
+
self assert: parser fail: ''.
self assert: parser fail: '
'.
@@ -549,25 +549,25 @@
testTrimSpaces
| parser |
parser := $a asParser token trimSpaces.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
- self assert: parser parse: 'a ' toToken: 1 stop: 1.
+ self assert: parser parse: 'a ' toToken: 1 stop: 1.
self assert: parser parse: 'a ' toToken: 1 stop: 1.
- self assert: parser parse: 'a
+ self assert: parser parse: 'a
' toToken: 1 stop: 1.
-
+
self assert: parser parse: 'a' toToken: 1 stop: 1.
self assert: parser parse: ' a' toToken: 2 stop: 2.
- self assert: parser parse: ' a' toToken: 2 stop: 2.
+ self assert: parser parse: ' a' toToken: 2 stop: 2.
self assert: parser parse: ' a' toToken: 5 stop: 5.
- self assert: parser parse: '
+ self assert: parser parse: '
a' toToken: 5 stop: 5.
-
+
self assert: parser parse: 'aa' toToken: 1 stop: 1 end: 1.
- self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
+ self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 2.
self assert: parser parse: 'a a' toToken: 1 stop: 1 end: 3.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'
!
@@ -575,12 +575,12 @@
testUnresolved
| parser |
parser := PPUnresolvedParser new.
-
+
self assert: parser isUnresolved.
self should: [ parser parse: '' ] raise: Error.
self should: [ parser parse: 'a' ] raise: Error.
self should: [ parser parse: 'ab' ] raise: Error.
-
+
parser := nil asParser.
self deny: parser isUnresolved
!
@@ -588,26 +588,26 @@
testWrapped
| parser |
parser := $a asParser wrapped.
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser fail: 'b'.
-
+
parser := (($a asParser , $b asParser ) wrapped , $c asParser).
self assert: parser parse: 'abc' to: #(#($a $b) $c)
!
testWrapping
| parser result |
- parser := #digit asParser plus >=> [ :stream :cc |
- Array
- with: stream position
- with: cc value
+ parser := #digit asParser plus >=> [ :stream :cc |
+ Array
+ with: stream position
+ with: cc value
with: stream position ].
self assert: parser parse: '1' to: #(0 ($1) 1).
self assert: parser parse: '12' to: #(0 ($1 $2) 2).
self assert: parser parse: '123' to: #(0 ($1 $2 $3) 3).
-
+
result := parser parse: 'a'.
self assert: result first = 0.
self assert: result second isPetitFailure.
@@ -618,21 +618,21 @@
| parser |
parser := ($a asParser / $b asParser)
| ($b asParser / $c asParser).
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser parse: 'c' to: $c.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'.
self assert: parser fail: 'd'.
-
+
" truly symmetric "
parser := ($b asParser / $c asParser)
| ($a asParser / $b asParser).
-
+
self assert: parser parse: 'a' to: $a.
self assert: parser parse: 'c' to: $c.
-
+
self assert: parser fail: ''.
self assert: parser fail: 'b'.
self assert: parser fail: 'd'
@@ -644,31 +644,31 @@
| parser |
parser := PPSequenceParser new.
self assert: parser name isNil.
-
+
parser := PPChoiceParser named: 'choice'.
self assert: parser name = 'choice'.
-
+
parser := $* asParser name: 'star'.
self assert: parser name = 'star'
!
testPrint
- | parser |
- parser := PPParser new.
- self assert: (parser printString includesSubString: 'PPParser').
-
- parser := PPParser named: 'choice'.
- self assert: (parser printString includesSubString: 'PPParser(choice').
-
- parser := PPLiteralObjectParser on: $a.
+ | parser |
+ parser := PPParser new.
+ self assert: (parser printString includesSubString: 'PPParser').
+
+ parser := PPParser named: 'choice'.
+ self assert: (parser printString includesSubString: 'PPParser(choice').
+
+ parser := PPLiteralObjectParser on: $a.
"/ self assert: (parser printString includesSubString: '$a').
- self assert: (parser printString includesSubString: 'a').
-
- parser := PPFailingParser message: 'error'.
- self assert: (parser printString includesSubString: 'error').
-
- parser := PPPredicateObjectParser on: [ :c | true ] message: 'error'.
- self assert: (parser printString includesSubString: 'error')
+ self assert: (parser printString includesSubString: 'a').
+
+ parser := PPFailingParser message: 'error'.
+ self assert: (parser printString includesSubString: 'error').
+
+ parser := PPPredicateObjectParser on: [ :c | true ] message: 'error'.
+ self assert: (parser printString includesSubString: 'error')
"Modified: / 19-12-2010 / 18:30:54 / Jan Kurs <kurs.jan@post.cz>"
! !
@@ -682,15 +682,15 @@
p1 := $a asParser.
p2 := p1 / $b asParser.
p3 := p1 / $c asParser.
-
+
self assert: p1 parse: 'a'.
self assert: p1 fail: 'b'.
self assert: p1 fail: 'c'.
-
+
self assert: p2 parse: 'a'.
self assert: p2 parse: 'b'.
self assert: p2 fail: 'c'.
-
+
self assert: p3 parse: 'a'.
self assert: p3 fail: 'b'.
self assert: p3 parse: 'c'
@@ -700,7 +700,7 @@
| old new |
old := $a asParser , $b asParser.
new := old copy.
-
+
self deny: old == new.
self deny: old children == new children.
self assert: old children first == new children first.
@@ -714,16 +714,16 @@
p1 := $a asParser.
p2 := p1 , $b asParser.
p3 := p1 , $c asParser.
-
- self assert: p1 parse: 'a'.
+
+ self assert: p1 parse: 'a'.
self assert: p1 parse: 'ab' end: 1.
self assert: p1 parse: 'ac' end: 1.
-
- self assert: p2 fail: 'a'.
+
+ self assert: p2 fail: 'a'.
self assert: p2 parse: 'ab'.
self assert: p2 fail: 'ac'.
- self assert: p3 fail: 'a'.
+ self assert: p3 fail: 'a'.
self assert: p3 fail: 'ab'.
self assert: p3 parse: 'ac'
! !
@@ -803,7 +803,7 @@
testFailure
| failure |
failure := PPFailure message: 'Error' at: 3.
-
+
self assert: failure message = 'Error'.
self assert: failure position = 3.
self assert: failure isPetitFailure.
@@ -817,7 +817,7 @@
p1 := PPChoiceParser with: $a asParser.
p2 := PPChoiceParser with: $a asParser with: $b asParser.
p3 := PPChoiceParser withAll: (Array with: $a asParser with: $b asParser with: $c asParser).
-
+
self assert: p1 children size = 1.
self assert: p2 children size = 2.
self assert: p3 children size = 3
@@ -826,10 +826,10 @@
testMatches
| parser |
parser := $a asParser.
-
+
self assert: (parser matches: 'a').
self deny: (parser matches: 'b').
-
+
self assert: (parser matches: 'a' readStream).
self deny: (parser matches: 'b' readStream)
!
@@ -837,12 +837,12 @@
testMatchesIn
| parser result |
parser := $a asParser.
-
+
result := parser matchesIn: 'abba'.
self assert: result size = 2.
self assert: result first = $a.
self assert: result last = $a.
-
+
result := parser matchesIn: 'baaah'.
self assert: result size = 3.
self assert: result first = $a.
@@ -854,7 +854,7 @@
| parser result |
parser := [ :stream | stream position ] asParser.
-
+
result := parser matchesIn: '123'.
self assert: result asArray = #(0 1 2 3)
!
@@ -864,7 +864,7 @@
| parser result |
parser := #digit asParser , #digit asParser.
-
+
result := parser matchesIn: 'a123b'.
self assert: result size = 2.
self assert: result first = #($1 $2).
@@ -881,24 +881,24 @@
!
testParse
- | parser result |
- parser := $a asParser.
-
- self assert: (parser parse: 'a') = $a.
- self assert: (result := parser parse: 'b') isPetitFailure.
- "is it Character printString differs: we return only 'a', not '$a'"
- self breakPoint: #petitparser.
+ | parser result |
+ parser := $a asParser.
+
+ self assert: (parser parse: 'a') = $a.
+ self assert: (result := parser parse: 'b') isPetitFailure.
+ "is it Character printString differs: we return only 'a', not '$a'"
+ self breakPoint: #petitparser.
"/ self assert: (result message includesSubString: '$a').
- self assert: (result message includesSubString: 'a').
- self assert: (result message includesSubString: 'expected').
- self assert: (result position = 0).
-
- self assert: (parser parse: 'a' readStream) = $a.
- self assert: (result := parser parse: 'b' readStream) isPetitFailure.
+ self assert: (result message includesSubString: 'a').
+ self assert: (result message includesSubString: 'expected').
+ self assert: (result position = 0).
+
+ self assert: (parser parse: 'a' readStream) = $a.
+ self assert: (result := parser parse: 'b' readStream) isPetitFailure.
"/ self assert: (result message includesSubString: '$a').
- self assert: (result message includesSubString: 'a').
- self assert: (result message includesSubString: 'expected').
- self assert: (result position = 0)
+ self assert: (result message includesSubString: 'a').
+ self assert: (result message includesSubString: 'expected').
+ self assert: (result position = 0)
"Modified: / 18-12-2010 / 17:05:13 / Jan Kurs <kurs.jan@post.cz>"
!
@@ -916,41 +916,41 @@
!
testParseOnError1
- | parser result seen |
- parser := $a asParser.
-
- result := parser parse: 'a' onError: [ self signalFailure: 'Not supposed to report an error' ].
- self assert: result = $a.
-
- result := parser parse: 'b' onError: [ :failure |
- self assert: (failure position = 0).
- "We don't use $ in ST/X for Characters"
- self assert: (failure message includesSubString: 'a').
+ | parser result seen |
+ parser := $a asParser.
+
+ result := parser parse: 'a' onError: [ self signalFailure: 'Not supposed to report an error' ].
+ self assert: result = $a.
+
+ result := parser parse: 'b' onError: [ :failure |
+ self assert: (failure position = 0).
+ "We don't use $ in ST/X for Characters"
+ self assert: (failure message includesSubString: 'a').
"/ self assert: (failure message includesSubString: '$a').
- self assert: (failure message includesSubString: 'expected').
- seen := true ].
- self assert: result.
- self assert: seen
+ self assert: (failure message includesSubString: 'expected').
+ seen := true ].
+ self assert: result.
+ self assert: seen
"Modified: / 19-12-2010 / 18:18:01 / Jan Kurs <kurs.jan@post.cz>"
!
testParseOnError2
- | parser result seen |
- parser := $a asParser.
-
- result := parser parse: 'a' onError: [ self signalFailure: 'Not supposed to report an error' ].
- self assert: result = $a.
+ | parser result seen |
+ parser := $a asParser.
+
+ result := parser parse: 'a' onError: [ self signalFailure: 'Not supposed to report an error' ].
+ self assert: result = $a.
- result := parser parse: 'b' onError: [ :msg :pos |
- "We don't use $ in ST/X for Characters"
- self assert: (msg includesSubString: 'a').
+ result := parser parse: 'b' onError: [ :msg :pos |
+ "We don't use $ in ST/X for Characters"
+ self assert: (msg includesSubString: 'a').
"/ self assert: (msg includesSubString: '$a').
- self assert: (msg includesSubString: 'expected').
- self assert: pos = 0.
- seen := true ].
- self assert: result.
- self assert: seen
+ self assert: (msg includesSubString: 'expected').
+ self assert: pos = 0.
+ seen := true ].
+ self assert: result.
+ self assert: seen
"Modified: / 19-12-2010 / 18:18:31 / Jan Kurs <kurs.jan@post.cz>"
!
@@ -958,7 +958,7 @@
testParser
| parser |
parser := PPParser new.
-
+
self assert: parser isPetitParser.
self deny: 4 isPetitParser.
@@ -968,5 +968,5 @@
!PPParserTest class methodsFor:'documentation'!
version_SVN
- ^ '$Id: PPParserTest.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
+ ^ '$Id: PPParserTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
! !