diff options
Diffstat (limited to 'tests/sheet_test.ml')
| -rwxr-xr-x | tests/sheet_test.ml | 16 |
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" |