multiplicative tests
This commit is contained in:
parent
0753311b93
commit
7bfe286f42
|
@ -39,6 +39,29 @@ describe("Peggy parse", () => {
|
||||||
testParse("!true", "{(::not true)}")
|
testParse("!true", "{(::not true)}")
|
||||||
testParse("1 + -1", "{(::add 1 (::unaryMinus 1))}")
|
testParse("1 + -1", "{(::add 1 (::unaryMinus 1))}")
|
||||||
testParse("-a[0]", "{(::unaryMinus (::$atIndex :a 0))}")
|
testParse("-a[0]", "{(::unaryMinus (::$atIndex :a 0))}")
|
||||||
|
testParse("!a[0]", "{(::not (::$atIndex :a 0))}")
|
||||||
|
})
|
||||||
|
|
||||||
|
describe("multiplicative", () => {
|
||||||
|
testParse("1 * 2", "{(::multiply 1 2)}")
|
||||||
|
testParse("1 / 2", "{(::divide 1 2)}")
|
||||||
|
testParse("1 * 2 * 3", "{(::multiply (::multiply 1 2) 3)}")
|
||||||
|
testParse("1 * 2 / 3", "{(::divide (::multiply 1 2) 3)}")
|
||||||
|
testParse("1 / 2 * 3", "{(::multiply (::divide 1 2) 3)}")
|
||||||
|
testParse("1 / 2 / 3", "{(::divide (::divide 1 2) 3)}")
|
||||||
|
testParse("1 * 2 + 3 * 4", "{(::add (::multiply 1 2) (::multiply 3 4))}")
|
||||||
|
testParse("1 * 2 - 3 * 4", "{(::subtract (::multiply 1 2) (::multiply 3 4))}")
|
||||||
|
testParse("1 * 2 .+ 3 * 4", "{(::dotAdd (::multiply 1 2) (::multiply 3 4))}")
|
||||||
|
testParse("1 * 2 .- 3 * 4", "{(::dotSubtract (::multiply 1 2) (::multiply 3 4))}")
|
||||||
|
testParse("1 * 2 + 3 .* 4", "{(::add (::multiply 1 2) (::dotMultiply 3 4))}")
|
||||||
|
testParse("1 * 2 + 3 / 4", "{(::add (::multiply 1 2) (::divide 3 4))}")
|
||||||
|
testParse("1 * 2 + 3 ./ 4", "{(::add (::multiply 1 2) (::dotDivide 3 4))}")
|
||||||
|
testParse("1 * 2 - 3 .* 4", "{(::subtract (::multiply 1 2) (::dotMultiply 3 4))}")
|
||||||
|
testParse("1 * 2 - 3 / 4", "{(::subtract (::multiply 1 2) (::divide 3 4))}")
|
||||||
|
testParse("1 * 2 - 3 ./ 4", "{(::subtract (::multiply 1 2) (::dotDivide 3 4))}")
|
||||||
|
testParse("1 * 2 - 3 * 4^5", "{(::subtract (::multiply 1 2) (::multiply 3 (::pow 4 5)))}")
|
||||||
|
testParse("1 * 2 - 3 * 4^5^6", "{(::subtract (::multiply 1 2) (::multiply 3 (::pow (::pow 4 5) 6)))}")
|
||||||
|
testParse("1 * -a[-2]", "{(::multiply 1 (::unaryMinus (::$atIndex :a (::unaryMinus 2))))}")
|
||||||
})
|
})
|
||||||
|
|
||||||
describe("multi-line", () => {
|
describe("multi-line", () => {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user