indents(r): add tests runner

1 files changed, 35 insertions, 0 deletions

diff --git a/tests/indent/r_spec.lua b/tests/indent/r_spec.lua
new file mode 100644
index 000000000..1bf6a2b50
--- /dev/null
+++ b/tests/indent/r_spec.lua
@@ -0,0 +1,35 @@
+local Runner = require("tests.indent.common").Runner
+
+local run = Runner:new(it, "tests/indent/r", {
+  tabstop = 2,
+  shiftwidth = 2,
+  softtabstop = 0,
+  expandtab = true,
+})
+
+describe("indent R:", function()
+  describe("whole file:", function()
+    run:whole_file "."
+  end)
+
+  describe("new line:", function()
+    run:new_line("comment.R", { on_line = 1, text = "# new comment", indent = 0 })
+
+    run:new_line("cond.R", { on_line = 1, text = "x <- x + 1", indent = 0 })
+    run:new_line("cond.R", { on_line = 4, text = "x <- x + 1", indent = 2 })
+    run:new_line("cond.R", { on_line = 5, text = "x <- x + 1", indent = 2 })
+    run:new_line("cond.R", { on_line = 8, text = "x <- x + 1", indent = 4 })
+
+    run:new_line("func.R", { on_line = 1, text = "x <- x + 1", indent = 2 })
+    run:new_line("func.R", { on_line = 2, text = "a <- a + 1", indent = 4 })
+    run:new_line("func.R", { on_line = 6, text = "0,", indent = 6 })
+    run:new_line("func.R", { on_line = 6, text = "0,", indent = 6 })
+
+    run:new_line("loop.R", { on_line = 1, text = "x <- x + 1", indent = 0 })
+    run:new_line("loop.R", { on_line = 3, text = "x <- x + 1", indent = 2 })
+    run:new_line("loop.R", { on_line = 8, text = "x <- x + 1", indent = 2 })
+    run:new_line("loop.R", { on_line = 14, text = "print('lol')", indent = 4 })
+
+    run:new_line("aligned_indent.R", { on_line = 1, text = "z,", indent = 17 })
+  end)
+end)