tests/legacy: convert test 63 (`:match` and `matchadd()` )

1 files changed, 141 insertions, 0 deletions

diff --git a/test/functional/legacy/063_match_and_matchadd_spec.lua b/test/functional/legacy/063_match_and_matchadd_spec.lua
new file mode 100644
index 0000000000..d819db7812
--- /dev/null
+++ b/test/functional/legacy/063_match_and_matchadd_spec.lua
@@ -0,0 +1,141 @@
+-- Tests for adjusting window and contents
+
+local helpers = require('test.functional.helpers')
+local Screen = require('test.functional.ui.screen')
+local feed, insert, source = helpers.feed, helpers.insert, helpers.source
+local eval, clear, execute, expect = helpers.eval, helpers.clear, helpers.execute
+local expect, eq, neq = helpers.expect, helpers.eq, helpers.neq
+local command = helpers.command
+
+describe('063: Test for ":match", "matchadd()" and related functions', function()
+  setup(clear)
+
+  it('is working', function()
+    local screen = Screen.new(40, 5)
+    screen:attach()
+
+    -- Check that "matcharg()" returns the correct group and pattern if a match
+    -- is defined.
+    execute("highlight MyGroup1 term=bold ctermbg=red guibg=red")
+    execute("highlight MyGroup2 term=italic ctermbg=green guibg=green")
+    execute("highlight MyGroup3 term=underline ctermbg=blue guibg=blue")
+    execute("match MyGroup1 /TODO/")
+    execute("2match MyGroup2 /FIXME/")
+    execute("3match MyGroup3 /XXX/")
+    eq({'MyGroup1', 'TODO'}, eval('matcharg(1)'))
+    eq({'MyGroup2', 'FIXME'}, eval('matcharg(2)'))
+    eq({'MyGroup3', 'XXX'}, eval('matcharg(3)'))
+
+    -- Check that "matcharg()" returns an empty list if the argument is not 1,
+    -- 2 or 3 (only 0 and 4 are tested).
+    eq({}, eval('matcharg(0)'))
+    eq({}, eval('matcharg(4)'))
+
+    -- Check that "matcharg()" returns ['', ''] if a match is not defined.
+    execute("match")
+    execute("2match")
+    execute("3match")
+    eq({'', ''}, eval('matcharg(1)'))
+    eq({'', ''}, eval('matcharg(2)'))
+    eq({'', ''}, eval('matcharg(3)'))
+
+    -- Check that "matchadd()" and "getmatches()" agree on added matches and
+    -- that default values apply.
+    execute("let m1 = matchadd('MyGroup1', 'TODO')")
+    execute("let m2 = matchadd('MyGroup2', 'FIXME', 42)")
+    execute("let m3 = matchadd('MyGroup3', 'XXX', 60, 17)")
+    eq({{group = 'MyGroup1', pattern = 'TODO', priority = 10, id = 4},
+        {group = 'MyGroup2', pattern = 'FIXME', priority = 42, id = 5},
+        {group = 'MyGroup3', pattern = 'XXX', priority = 60, id = 17}},
+      eval('getmatches()'))
+
+    -- Check that "matchdelete()" deletes the matches defined in the previous
+    -- test correctly.
+    execute("call matchdelete(m1)")
+    execute("call matchdelete(m2)")
+    execute("call matchdelete(m3)")
+    eq({}, eval('getmatches()'))
+
+    --- Check that "matchdelete()" returns 0 if successful and otherwise -1.
+    execute("let m = matchadd('MyGroup1', 'TODO')")
+    eq(0, eval('matchdelete(m)'))
+
+    -- matchdelete throws error and returns -1 on failure
+    neq(true, pcall(function() eval('matchdelete(42)') end))
+    execute("let r2 = matchdelete(42)")
+    eq(-1, eval('r2'))
+
+    -- Check that "clearmatches()" clears all matches defined by ":match" and
+    -- "matchadd()".
+    execute("let m1 = matchadd('MyGroup1', 'TODO')")
+    execute("let m2 = matchadd('MyGroup2', 'FIXME', 42)")
+    execute("let m3 = matchadd('MyGroup3', 'XXX', 60, 17)")
+    execute("match MyGroup1 /COFFEE/")
+    execute("2match MyGroup2 /HUMPPA/")
+    execute("3match MyGroup3 /VIM/")
+    execute("call clearmatches()")
+    eq({}, eval('getmatches()'))
+
+    -- Check that "setmatches()" restores a list of matches saved by
+    -- "getmatches()" without changes. (Matches with equal priority must also
+    -- remain in the same order.)
+    execute("let m1 = matchadd('MyGroup1', 'TODO')")
+    execute("let m2 = matchadd('MyGroup2', 'FIXME', 42)")
+    execute("let m3 = matchadd('MyGroup3', 'XXX', 60, 17)")
+    execute("match MyGroup1 /COFFEE/")
+    execute("2match MyGroup2 /HUMPPA/")
+    execute("3match MyGroup3 /VIM/")
+    execute("let ml = getmatches()")
+    ml = eval("ml")
+    execute("call clearmatches()")
+    execute("call setmatches(ml)")
+    eq(ml, eval('getmatches()'))
+    execute("call clearmatches()")
+
+    -- Check that "setmatches()" will not add two matches with the same ID. The
+    -- expected behaviour (for now) is to add the first match but not the
+    -- second and to return 0 (even though it is a matter of debate whether
+    -- this can be considered successful behaviour).
+    execute("let r1 = setmatches([{'group': 'MyGroup1', 'pattern': 'TODO', 'priority': 10, 'id': 1}, {'group': 'MyGroup2', 'pattern': 'FIXME', 'priority': 10, 'id': 1}])")
+    feed("<cr>")
+    eq(0, eval("r1"))
+    eq({{group = 'MyGroup1', pattern = 'TODO', priority = 10, id = 1}}, eval('getmatches()'))
+
+    -- Check that "setmatches()" returns 0 if successful and otherwise -1.
+    -- (A range of valid and invalid input values are tried out to generate the
+    -- return values.)
+    eq(0,eval("setmatches([])"))
+    eq(0,eval("setmatches([{'group': 'MyGroup1', 'pattern': 'TODO', 'priority': 10, 'id': 1}])"))
+    execute("call clearmatches()")
+    execute("let rf1 = setmatches(0)")
+    eq(-1, eval('rf1'))
+    execute("let rf2 = setmatches([0])")
+    eq(-1, eval('rf2'))
+    execute("let rf3 = setmatches([{'wrong key': 'wrong value'}])")
+    feed("<cr>")
+    eq(-1, eval('rf3'))
+
+    -- Check that "matchaddpos()" positions matches correctly
+    insert('abcdefghijklmnopq')
+    execute("call matchaddpos('MyGroup1', [[1, 5], [1, 8, 3]], 10, 3)")
+    screen:expect([[
+      abcd{1:e}fg{1:hij}klmnop^q                       |
+      ~                                       |
+      ~                                       |
+      ~                                       |
+                                              |
+    ]], {[1] = {background = Screen.colors.Red}}, {{bold = true, foreground = Screen.colors.Blue}})
+
+    execute("call clearmatches()")
+    execute("call setline(1, 'abcdΣabcdef')")
+    execute("call matchaddpos('MyGroup1', [[1, 4, 2], [1, 9, 2]])")
+    screen:expect([[
+      abc{1:dΣ}ab{1:cd}e^f                             |
+      ~                                       |
+      ~                                       |
+      ~                                       |
+                                              |
+    ]],{[1] = {background = Screen.colors.Red}}, {{bold = true, foreground = Screen.colors.Blue}})
+  end)
+end)
+