From 9fbc5e48ea8183dda8fdb652364c0c29f8a309d5 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 1 Nov 2017 14:53:09 +0100
Subject: Made scTypes.types private.

---
 tests/odf/odf_ExpressionParser_test.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'tests/odf')

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", [
-- 
cgit v1.2.3