aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rwxr-xr-xtests/sheet_test.ml16
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"