diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-01 14:53:09 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2017-11-01 14:53:09 +0100 |
commit | 9fbc5e48ea8183dda8fdb652364c0c29f8a309d5 (patch) | |
tree | 052214454101b44d07918131ad500f0c451649eb /tests/expressionParser_test.ml | |
parent | ab721136f50914a21f6cca89f0fcfb055ba58cd2 (diff) |
Made scTypes.types private.
Diffstat (limited to 'tests/expressionParser_test.ml')
-rwxr-xr-x | tests/expressionParser_test.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/expressionParser_test.ml b/tests/expressionParser_test.ml index 476e3aa..30bd665 100755 --- a/tests/expressionParser_test.ml +++ b/tests/expressionParser_test.ml @@ -19,11 +19,10 @@ let test_num ctx = begin let expected = Expression.Formula ( Expression.Expression ( - ScTypes.Value ( - ScTypes.Num ( - ScTypes.Number, + ScTypes.Value (ScTypes.number ( DataType.Num.of_num (Num.num_of_int 1) - )))) in + ) + ))) in let result = load_expr "=1" in assert_equal @@ -54,8 +53,7 @@ let test_call2 ctx = begin let expected = Expression.Formula ( Expression.Expression ( ScTypes.Call ( - u"foo2", [ScTypes.Value (ScTypes.Num ( - ScTypes.Number, + u"foo2", [ScTypes.Value (ScTypes.number ( DataType.Num.of_num (Num.num_of_int 4) ))]))) in let result = load_expr "=foo2(4)" in |