Rename a function

1 files changed, 8 insertions, 8 deletions

diff --git a/tests/sheet_test.ml b/tests/sheet_test.ml
index c1af5d5..71f5749 100755
--- a/tests/sheet_test.ml
+++ b/tests/sheet_test.ml
@@ -19,7 +19,7 @@ end
 (** Test a simple references between two cells *)
 let test_create_ref_1 ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
        |> Sheet.Raw.add (3,3) @@ Expression.load @@ u"=-1"
        |> snd |> Sheet.Raw.add (0,0) @@ Expression.load @@ u"=C3"
        |> snd in
@@ -34,7 +34,7 @@ end
 
 let test_create_ref_2 ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
        |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=C3"
        |> snd |> Sheet.Raw.add (3,3) @@ Expression.load @@ u"=A1"
        |> snd |> Sheet.Raw.add (1,1) @@ Expression.load @@ u"123"
@@ -52,7 +52,7 @@ end
 
 let test_create_direct_cycle ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
        |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=B2 + 1"
        |> snd in
   let result = (Sheet.Raw.get_value (2, 2) s) in
@@ -66,7 +66,7 @@ end
 
 let test_create_indirect_cycle ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
        |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=A1"
        |> snd |> Sheet.Raw.add (1,1) @@ Expression.load @@ u"=2"
        |> snd |> Sheet.Raw.add (1,1) @@ Expression.load @@ u"=B2+1"
@@ -83,7 +83,7 @@ end
 
 let test_check_cycle3 ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
       (* First set A1 to 3 *)
       |> Sheet.Raw.add (1,1) @@ Expression.load @@ u"=3"
       |> snd |> Sheet.Raw.add (1,2) @@ Expression.load @@ u"=A1"
@@ -106,7 +106,7 @@ end
 
 let test_delete ctx = begin
 
-  let s = Sheet.Raw.create
+  let s = Sheet.Raw.empty
        |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=C3"
        |> snd |> Sheet.Raw.add (3,3) @@ Expression.load @@ u"=A1"
        |> snd |> Sheet.Raw.remove (2,2)
@@ -123,7 +123,7 @@ end
 
 let test_update_succs1 ctx = begin
 
-  let result = Sheet.Raw.create
+  let result = Sheet.Raw.empty
        |> Sheet.Raw.add (1,1) @@ Expression.load @@ u" =1"
        |> snd |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=A2"
        |> snd |> Sheet.Raw.add (1,2) @@ Expression.load @@ u"=A1/1"
@@ -144,7 +144,7 @@ end
 
 let test_update_succs2 ctx = begin
 
-  let result = Sheet.Raw.create
+  let result = Sheet.Raw.empty
        |> Sheet.Raw.add (1,1) @@ Expression.load @@ u"=1"
        |> snd |> Sheet.Raw.add (2,2) @@ Expression.load @@ u"=A2"
        |> snd |> Sheet.Raw.add (1,2) @@ Expression.load @@ u"=A1/0"