equal
deleted
inserted
replaced
30 !PPArithmeticParserTest methodsFor:'testing-expression'! |
30 !PPArithmeticParserTest methodsFor:'testing-expression'! |
31 |
31 |
32 testBrackets |
32 testBrackets |
33 self assert: '(1)' is: 1. |
33 self assert: '(1)' is: 1. |
34 self assert: '(1 + 2)' is: 3. |
34 self assert: '(1 + 2)' is: 3. |
35 |
35 |
36 self assert: '((1))' is: 1. |
36 self assert: '((1))' is: 1. |
37 self assert: '((1 + 2))' is: 3. |
37 self assert: '((1 + 2))' is: 3. |
38 |
38 |
39 self assert: '2 * (3 + 4)' is: 14. |
39 self assert: '2 * (3 + 4)' is: 14. |
40 self assert: '(2 + 3) * 4' is: 20. |
40 self assert: '(2 + 3) * 4' is: 20. |
76 testDivMany |
76 testDivMany |
77 self assert: '100 / 2' is: 50. |
77 self assert: '100 / 2' is: 50. |
78 self assert: '100 / 2 / 2' is: 25. |
78 self assert: '100 / 2 / 2' is: 25. |
79 self assert: '100 / 2 / 2 / 5' is: 5. |
79 self assert: '100 / 2 / 2 / 5' is: 5. |
80 self assert: '100 / 2 / 2 / 5 / 5' is: 1 |
80 self assert: '100 / 2 / 2 / 5 / 5' is: 1 |
81 |
81 |
82 ! |
82 ! |
83 |
83 |
84 testMul |
84 testMul |
85 self assert: '2 * 3' is: 6. |
85 self assert: '2 * 3' is: 6. |
86 self assert: '2 * -4' is: -8 |
86 self assert: '2 * -4' is: -8 |
121 self assert: '1 - 2 - 3 - 4 - 5' is: -13 |
121 self assert: '1 - 2 - 3 - 4 - 5' is: -13 |
122 ! ! |
122 ! ! |
123 |
123 |
124 !PPArithmeticParserTest class methodsFor:'documentation'! |
124 !PPArithmeticParserTest class methodsFor:'documentation'! |
125 |
125 |
|
126 version |
|
127 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParserTest.st,v 1.3 2012-05-04 22:08:46 vrany Exp $' |
|
128 ! |
|
129 |
|
130 version_CVS |
|
131 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParserTest.st,v 1.3 2012-05-04 22:08:46 vrany Exp $' |
|
132 ! |
|
133 |
126 version_SVN |
134 version_SVN |
127 ^ '$Id: PPArithmeticParserTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
135 ^ '§Id: PPArithmeticParserTest.st 4 2010-12-18 17:02:23Z kursjan §' |
128 ! ! |
136 ! ! |