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/odf | |
| parent | ab721136f50914a21f6cca89f0fcfb055ba58cd2 (diff) | |
Made scTypes.types private.
Diffstat (limited to 'tests/odf')
| -rwxr-xr-x | tests/odf/odf_ExpressionParser_test.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/odf/odf_ExpressionParser_test.ml b/tests/odf/odf_ExpressionParser_test.ml index becf9ab..8b4e4ff 100755 --- a/tests/odf/odf_ExpressionParser_test.ml +++ b/tests/odf/odf_ExpressionParser_test.ml @@ -14,8 +14,7 @@ let _msg ~(expected:ScTypes.expression) ~(result:ScTypes.expression) = -let build_num value = ScTypes.Num (
- ScTypes.Number,
+let build_num value = ScTypes.number (
DataType.Num.of_num @@ Num.num_of_int value
)
@@ -32,7 +31,7 @@ let test_formula ctx = begin Call(u"CONCATENATE", [
Call (u"SUM", [
Ref (Range (((6, 16), (false, false)), (((36, 16), (false, false)))))]);
- Value (Str (u"/"));
+ Value (string (u"/"));
Call(u"*", [
Value (build_num 8);
Call(u"NETWORKDAYS", [
|