From 964c9a685db31c35537e8a3bc06ce34bee84d5f6 Mon Sep 17 00:00:00 2001
From: Bruno BELANYI <bruno@belanyi.fr>
Date: Mon, 13 Jun 2022 11:18:36 +0200
Subject: [PATCH] Add values/expressions indent tests

---
 test/indent/values-and-expressions.tig | 24 ++++++++++++++++++++++++
 test/indent_spec.lua                   | 13 +++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 test/indent/values-and-expressions.tig

diff --git a/test/indent/values-and-expressions.tig b/test/indent/values-and-expressions.tig
new file mode 100644
index 0000000..e2fc08a
--- /dev/null
+++ b/test/indent/values-and-expressions.tig
@@ -0,0 +1,24 @@
+let
+  type array_of_int = array of int
+
+  var a :=
+    "a string"
+in
+  array[
+    12
+  ]
+  ;
+
+  array_of_int[
+    27
+  ]
+  of
+    42
+  ;
+
+  record {
+    a = 1,
+    b = "2",
+    c = nil
+  }
+end
diff --git a/test/indent_spec.lua b/test/indent_spec.lua
index 0edc991..22863ff 100644
--- a/test/indent_spec.lua
+++ b/test/indent_spec.lua
@@ -65,5 +65,18 @@ describe("indent Tiger:", function()
         runner:new_line("groupings.tig", { on_line = 4, text = "a := a + 1;", indent = 4 }, "sequence", XFAIL)
         runner:new_line("groupings.tig", { on_line = 8, text = "a := a + 1;", indent = 2 }, "after sequence")
         runner:new_line("groupings.tig", { on_line = 10, text = "+ 1", indent = 0 }, "after 'end'")
+
+        runner:new_line("values-and-expressions.tig", { on_line = 4, text = "0", indent = 4 }, "variable declaration init value", XFAIL)
+        runner:new_line("values-and-expressions.tig", { on_line = 5, text = "+ a", indent = 4 }, "variable declaration init follow-up")
+        runner:new_line("values-and-expressions.tig", { on_line = 7, text = "a", indent = 4 }, "array index", XFAIL)
+        runner:new_line("values-and-expressions.tig", { on_line = 8, text = "+ a", indent = 4 }, "array index follow-up")
+        runner:new_line("values-and-expressions.tig", { on_line = 9, text = "+ a", indent = 2 }, "after array value")
+        runner:new_line("values-and-expressions.tig", { on_line = 12, text = "a", indent = 4 }, "array expression size", XFAIL)
+        runner:new_line("values-and-expressions.tig", { on_line = 14, text = "of", indent = 2 }, "array expression after size")
+        runner:new_line("values-and-expressions.tig", { on_line = 15, text = "a", indent = 4 }, "array expression init value", XFAIL)
+        runner:new_line("values-and-expressions.tig", { on_line = 19, text = "field = 0,", indent = 4 }, "record expression beginning", XFAIL)
+        runner:new_line("values-and-expressions.tig", { on_line = 20, text = "field = 0,", indent = 4 }, "record expression middle")
+        runner:new_line("values-and-expressions.tig", { on_line = 22, text = ",field = 0", indent = 4 }, "record expression end")
+        runner:new_line("values-and-expressions.tig", { on_line = 23, text = "a := 0", indent = 2 }, "after record expression")
     end)
 end)