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/expression_test.ml | |
parent | ab721136f50914a21f6cca89f0fcfb055ba58cd2 (diff) |
Made scTypes.types private.
Diffstat (limited to 'tests/expression_test.ml')
-rwxr-xr-x | tests/expression_test.ml | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/tests/expression_test.ml b/tests/expression_test.ml index 0950383..2fa4d9b 100755 --- a/tests/expression_test.ml +++ b/tests/expression_test.ml @@ -28,7 +28,7 @@ let assert_equal expected result = let test_str ctx = begin let result = Expression.load @@ u"cafe" in let expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Str (u"cafe")) in + ScTypes.string (u"cafe")) in assert_equal expected result end @@ -36,7 +36,7 @@ end let test_str_space ctx = begin let result = Expression.load @@ u" =cafe" in let expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Str (u" =cafe")) in + ScTypes.string (u" =cafe")) in assert_equal expected result end @@ -45,15 +45,14 @@ let test_formula_str ctx = begin let expected = Expression.load_expr @@ Expression.Formula ( Expression.Expression ( ScTypes.Value ( - ScTypes.Str (u"cafe")))) in + ScTypes.string (u"cafe")))) in assert_equal expected result end let test_num ctx = begin let result = Expression.load @@ u"123" in let expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Num ( - ScTypes.Number, + ScTypes.number ( DataType.Num.of_num @@ Num.num_of_int 123 )) in assert_equal expected result @@ -62,8 +61,7 @@ end let test_float ctx = begin let result = Expression.load @@ u"12.45" in let expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Num ( - ScTypes.Number, + ScTypes.number ( DataType.Num.of_num @@ T.Num.of_float_string "12.45" )) in assert_equal expected result @@ -72,8 +70,7 @@ end let test_relative ctx = begin let result = Expression.load @@ u"-123" in let expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Num ( - ScTypes.Number, + ScTypes.number ( DataType.Num.of_num @@ Num.num_of_int (-123) )) in assert_equal expected result @@ -82,8 +79,7 @@ end let test_date ctx = begin let result = Expression.load @@ u"1900/01/01" and expected = Expression.load_expr @@ Expression.Basic ( - ScTypes.Num ( - ScTypes.Date, + ScTypes.date ( DataType.Num.of_num @@ Date.get_julian_day 1900 01 01 )) in assert_equal expected result |