From 01d7f77f65c3a2b83978b1f00c87b54f00647816 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 25 Oct 2017 14:50:32 +0200
Subject: Update sheet traversal

---
 tests/expressionParser_test.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'tests/expressionParser_test.ml')

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