equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
1 "{ Package: 'stx:goodies/petitparser/tests' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 PPAbstractParserTest subclass:#PPComposedTest |
5 PPAbstractParserTest subclass:#PPComposedTest |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
112 |
114 |
113 | number list parser | |
115 | number list parser | |
114 number := #digit asParser plus flatten trim |
116 number := #digit asParser plus flatten trim |
115 ==> [ :node | node asInteger ]. |
117 ==> [ :node | node asInteger ]. |
116 list := (number separatedBy: $, asParser token trim) |
118 list := (number separatedBy: $, asParser token trim) |
117 ==> [ :node | node select: [ :each | each isInteger ] ]. |
119 ==> [ :node | node select: [ :each | each isKindOf: Integer ] ]. |
118 parser := list end. |
120 parser := list end. |
119 |
121 |
120 self assert: parser parse: '1' to: (1 to: 1) asArray. |
122 self assert: parser parse: '1' to: (1 to: 1) asArray. |
121 self assert: parser parse: '1,2' to: (1 to: 2) asArray. |
123 self assert: parser parse: '1,2' to: (1 to: 2) asArray. |
122 self assert: parser parse: '1,2,3' to: (1 to: 3) asArray. |
124 self assert: parser parse: '1,2,3' to: (1 to: 3) asArray. |