diff --git a/PrattParser.Test/TestParser.fs b/PrattParser.Test/TestParser.fs index f5c38e2..4d481fd 100644 --- a/PrattParser.Test/TestParser.fs +++ b/PrattParser.Test/TestParser.fs @@ -57,6 +57,8 @@ module TestParser = (Expr.paren (Expr.ifThenElse (Expr.plus (Expr.var "x") (Expr.constInt 1)) (Expr.var "y") (Expr.var "z"))) (Expr.constInt 3) + (* + // TODO: implement "g x y + a * (func b c)", let gXY = Expr.functionCall (Expr.functionCall (Expr.var "g") (Expr.var "x")) (Expr.var "y") @@ -65,6 +67,7 @@ module TestParser = Expr.functionCall (Expr.Var "func") (Expr.plus (Expr.Var "b") (Expr.Var "c")) Expr.plus gXY (Expr.times (Expr.Var "a") fAPlusB) +*) ] |> List.map TestCaseData