aboutsummaryrefslogtreecommitdiff
path: root/tests/expressionParser_test.ml
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2017-10-31 16:07:04 +0100
committerSébastien Dailly <sebastien@chimrod.com>2017-10-31 16:07:04 +0100
commitab721136f50914a21f6cca89f0fcfb055ba58cd2 (patch)
tree60f788e3e8733a6d3606e801bc21a24e419e070e /tests/expressionParser_test.ml
parentdb627ca2cfc745bbf2e489251e64054ab2b3bff9 (diff)
parentd8ed0babfa1c03c8f1968443a465972bb3bf460c (diff)
Update ScTypes.types with types used in evaluator
Diffstat (limited to 'tests/expressionParser_test.ml')
-rwxr-xr-xtests/expressionParser_test.ml9
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