diff options
Diffstat (limited to 'tests/expressionParser_test.ml')
| -rwxr-xr-x | tests/expressionParser_test.ml | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/tests/expressionParser_test.ml b/tests/expressionParser_test.ml index 12ceeb0..481ed6d 100755 --- a/tests/expressionParser_test.ml +++ b/tests/expressionParser_test.ml @@ -19,7 +19,7 @@ let test_num ctx = begin let expected = Expression.Formula ( Expression.Expression ( - ScTypes.Value (ScTypes.number ( + ScTypes.Expr.value (ScTypes.Type.number ( DataType.Num.of_int 1 ) ))) in @@ -35,8 +35,7 @@ let test_call ctx = begin let expected = Expression.Formula ( Expression.Expression ( - ScTypes.Call ( - u"sum", []))) in + ScTypes.Expr.call0 (u"sum"))) in let result = load_expr "=sum()" in assert_equal @@ -52,10 +51,10 @@ let test_call2 ctx = begin let expected = Expression.Formula ( Expression.Expression ( - ScTypes.Call ( - u"foo2", [ScTypes.Value (ScTypes.number ( - DataType.Num.of_int 4 - ))]))) in + ScTypes.Expr.call1 + (u"foo2") (ScTypes.Expr.value (ScTypes.Type.number ( + DataType.Num.of_int 4) + )))) in let result = load_expr "=foo2(4)" in assert_equal @@ -68,8 +67,8 @@ let test_ref ctx = begin let expected = Expression.Formula ( Expression.Expression ( - ScTypes.Ref( - ScTypes.Cell ((1, 3), (false, false))))) in + ScTypes.Expr.ref( + ScTypes.Refs.cell ((1, 3), (false, false))))) in let result = load_expr "=A3" in assert_equal |