equal
deleted
inserted
replaced
3 PPCompositeParserTest subclass:#PPSmalltalkGrammarTests |
3 PPCompositeParserTest subclass:#PPSmalltalkGrammarTests |
4 instanceVariableNames:'' |
4 instanceVariableNames:'' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitSmalltalk-Tests' |
7 category:'PetitSmalltalk-Tests' |
8 ! |
|
9 |
|
10 PPSmalltalkGrammarTests comment:'' |
|
11 ! |
8 ! |
12 |
9 |
13 |
10 |
14 !PPSmalltalkGrammarTests class methodsFor:'accessing'! |
11 !PPSmalltalkGrammarTests class methodsFor:'accessing'! |
15 |
12 |
480 parse: '3r-22.2' |
477 parse: '3r-22.2' |
481 rule: #numberLiteral |
478 rule: #numberLiteral |
482 ! |
479 ! |
483 |
480 |
484 testNumberLiteral15 |
481 testNumberLiteral15 |
485 self |
482 ((Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ |
486 parse: '0.50s2' |
483 ^ self. |
487 rule: #numberLiteral |
484 ]. |
|
485 self |
|
486 parse: '0.50s2' |
|
487 rule: #numberLiteral |
|
488 |
|
489 "Modified: / 07-10-2014 / 23:02:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
488 ! |
490 ! |
489 |
491 |
490 testNumberLiteral2 |
492 testNumberLiteral2 |
491 self |
493 self |
492 parse: '0.1' |
494 parse: '0.1' |