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:#PPObjectTest |
5 PPAbstractParserTest subclass:#PPObjectTest |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
10 |
12 |
11 !PPObjectTest methodsFor:'parsers'! |
13 !PPObjectTest methodsFor:'parsers'! |
12 |
14 |
13 integer |
15 integer |
14 ^ PPPredicateObjectParser |
16 ^ PPPredicateObjectParser |
15 on: [ :each | each isInteger ] |
17 on: [ :each | each isKindOf: Integer ] |
16 message: 'integer expected' |
18 message: 'integer expected' |
17 ! |
19 ! |
18 |
20 |
19 string |
21 string |
20 ^ PPPredicateObjectParser |
22 ^ PPPredicateObjectParser |
21 on: [ :each | each isString ] |
23 on: [ :each | each isKindOf: String ] |
22 message: 'string expected' |
24 message: 'string expected' |
23 ! ! |
25 ! ! |
24 |
26 |
25 !PPObjectTest methodsFor:'testing'! |
27 !PPObjectTest methodsFor:'testing'! |
26 |
28 |
86 |
88 |
87 version_CVS |
89 version_CVS |
88 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $' |
90 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $' |
89 ! |
91 ! |
90 |
92 |
|
93 version_HG |
|
94 |
|
95 ^ '$Changeset: <not expanded> $' |
|
96 ! |
|
97 |
91 version_SVN |
98 version_SVN |
92 ^ '$Id: PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $' |
99 ^ '$Id: PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $' |
93 ! ! |
100 ! ! |
94 |
101 |