diff options
Diffstat (limited to 'tests/expressionParser_test.ml')
-rwxr-xr-x | tests/expressionParser_test.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/expressionParser_test.ml b/tests/expressionParser_test.ml index 25d9d00..476e3aa 100755 --- a/tests/expressionParser_test.ml +++ b/tests/expressionParser_test.ml @@ -21,7 +21,9 @@ let test_num ctx = begin Expression.Expression ( ScTypes.Value ( ScTypes.Num ( - Num.num_of_int 1, Some (u"1"))))) in + ScTypes.Number, + DataType.Num.of_num (Num.num_of_int 1) + )))) in let result = load_expr "=1" in assert_equal @@ -52,7 +54,10 @@ let test_call2 ctx = begin let expected = Expression.Formula ( Expression.Expression ( ScTypes.Call ( - u"foo2", [ScTypes.Value (ScTypes.Num (Num.num_of_int 4, Some (u"4")))]))) in + u"foo2", [ScTypes.Value (ScTypes.Num ( + ScTypes.Number, + DataType.Num.of_num (Num.num_of_int 4) + ))]))) in let result = load_expr "=foo2(4)" in assert_equal |