Updated to PetitCompiler-JanKurs.118, PetitCompiler-Tests-JanKurs.46, PetitCompiler-Extras-Tests-JanKurs.11, and PetitCompiler-Benchmarks-JanKurs.11
Name: PetitCompiler-JanKurs.118
Author: JanKurs
Time: 13-05-2015, 03:59:01.292 PM
UUID: 4a8ccd94-3131-4cc7-9098-528f8e5ea0b5
Name: PetitCompiler-Tests-JanKurs.46
Author: JanKurs
Time: 04-05-2015, 04:25:06.162 PM
UUID: 9f4cf8b7-876e-4a13-9579-b833f016db66
Name: PetitCompiler-Extras-Tests-JanKurs.11
Author: JanKurs
Time: 13-05-2015, 04:27:27.940 PM
UUID: e9f30c31-fbd0-4e96-ad2a-868f88d20ea8
Name: PetitCompiler-Benchmarks-JanKurs.11
Author: JanKurs
Time: 13-05-2015, 02:21:49.932 PM
UUID: 6a23fd1e-a86f-46db-8221-cc41b778d32c
"{ Package: 'stx:goodies/petitparser/tests' }"
PPCompositeParserTest subclass:#PPArithmeticParserTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitTests-Tests'
!
!PPArithmeticParserTest methodsFor:'accessing'!
parserClass
^ PPArithmeticParser
! !
!PPArithmeticParserTest methodsFor:'testing'!
testNum
self assert: '0' is: 0.
self assert: '0.0' is: 0.0.
self assert: '1' is: 1.
self assert: '1.2' is: 1.2.
self assert: '34' is: 34.
self assert: '56.78' is: 56.78.
self assert: '-9' is: -9.
self assert: '-9.9' is: -9.9
! !
!PPArithmeticParserTest methodsFor:'testing-expression'!
testBrackets
self assert: '(1)' is: 1.
self assert: '(1 + 2)' is: 3.
self assert: '((1))' is: 1.
self assert: '((1 + 2))' is: 3.
self assert: '2 * (3 + 4)' is: 14.
self assert: '(2 + 3) * 4' is: 20.
self assert: '6 / (2 + 4)' is: 1.
self assert: '(2 + 6) / 2' is: 4
!
testPriority
self assert: '2 * 3 + 4' is: 10.
self assert: '2 + 3 * 4' is: 14.
self assert: '6 / 3 + 4' is: 6.
self assert: '2 + 6 / 2' is: 5
! !
!PPArithmeticParserTest methodsFor:'testing-operations'!
testAdd
self assert: '1 + 2' is: 3.
self assert: '2 + 1' is: 3.
self assert: '1 + 2.3' is: 3.3.
self assert: '2.3 + 1' is: 3.3.
self assert: '1 + -2' is: -1.
self assert: '-2 + 1' is: -1
!
testAddMany
self assert: '1' is: 1.
self assert: '1 + 2' is: 3.
self assert: '1 + 2 + 3' is: 6.
self assert: '1 + 2 + 3 + 4' is: 10.
self assert: '1 + 2 + 3 + 4 + 5' is: 15
!
testDiv
self assert: '12 / 3' is: 4.
self assert: '-16 / -4' is: 4
!
testDivMany
self assert: '100 / 2' is: 50.
self assert: '100 / 2 / 2' is: 25.
self assert: '100 / 2 / 2 / 5' is: 5.
self assert: '100 / 2 / 2 / 5 / 5' is: 1
!
testMul
self assert: '2 * 3' is: 6.
self assert: '2 * -4' is: -8
!
testMulMany
self assert: '1 * 2' is: 2.
self assert: '1 * 2 * 3' is: 6.
self assert: '1 * 2 * 3 * 4' is: 24.
self assert: '1 * 2 * 3 * 4 * 5' is: 120
!
testPow
self assert: '2 ^ 3' is: 8.
self assert: '-2 ^ 3' is: -8.
self assert: '-2 ^ -3' is: -0.125
!
testPowMany
self assert: '4 ^ 3' is: 64.
self assert: '4 ^ 3 ^ 2' is: 262144.
self assert: '4 ^ 3 ^ 2 ^ 1' is: 262144.
self assert: '4 ^ 3 ^ 2 ^ 1 ^ 0' is: 262144
!
testSub
self assert: '1 - 2' is: -1.
self assert: '1.2 - 1.2' is: 0.
self assert: '1 - -2' is: 3.
self assert: '-1 - -2' is: 1
!
testSubMany
self assert: '1' is: 1.
self assert: '1 - 2' is: -1.
self assert: '1 - 2 - 3' is: -4.
self assert: '1 - 2 - 3 - 4' is: -8.
self assert: '1 - 2 - 3 - 4 - 5' is: -13
! !
!PPArithmeticParserTest class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParserTest.st,v 1.4 2014-03-04 14:34:09 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPArithmeticParserTest.st,v 1.4 2014-03-04 14:34:09 cg Exp $'
!
version_SVN
^ '$Id: PPArithmeticParserTest.st,v 1.4 2014-03-04 14:34:09 cg Exp $'
! !