1 files changed, 95 insertions, 0 deletions
diff --git a/mnv/src/testdir/test_cmdmods.mnv b/mnv/src/testdir/test_cmdmods.mnv
new file mode 100644
index 0000000000..e8735927a8
--- /dev/null
+++ b/mnv/src/testdir/test_cmdmods.mnv
@@ -0,0 +1,95 @@
+" Test for all command modifiers in
+
+def s:memoize_cmdmods(): func(): list<string>
+  var cmdmods: list<string> = []
+  return () => {
+    if empty(cmdmods)
+      edit ../ex_docmd.c
+      var top = search('^static cmdmod_info_T cmdmod_info_tab[') + 1
+      var bot = search('^};.*\/\/ cmdmod_info_tab') - 1
+      var lines = getline(top, bot)
+      cmdmods = lines->map((_, v) => substitute(v, '.*"\(\k*\)".*', '\1', ''))
+      bwipe!
+    endif
+    return cmdmods
+  }
+enddef
+let s:get_cmdmods = s:memoize_cmdmods()
+
+def Test_cmdmods_array()
+  # Get all the command modifiers from ex_cmds.h.
+  var lines = readfile('../ex_cmds.h')->filter((_, l) => l =~ 'ex_wrongmodifier,')
+  var cmds = lines->map((_, v) => substitute(v, '.*"\(\k*\)".*', '\1', ''))
+  # :hide is both a command and a modifier
+  cmds->extend(['hide'])
+
+  var mods = s:get_cmdmods()
+  # Add the other commands that use ex_wrongmodifier.
+  mods->extend([
+                'endclass',
+                'endenum',
+                'endinterface',
+                'public',
+                'static',
+                'this',
+              ])
+
+  # Check the lists are equal.  Convert them to a dict to get a clearer error
+  # message.
+  var cmds_dict = {}
+  for v in cmds
+    cmds_dict[v] = 1
+  endfor
+  var mods_dict = {}
+  for v in mods
+    mods_dict[v] = 1
+  endfor
+  assert_equal(cmds_dict, mods_dict)
+
+  bwipe!
+enddef
+
+def Test_keep_cmdmods_names()
+  # :k only available in legacy script
+  legacy call assert_equal('k', fullcommand(':k'))
+  legacy call assert_equal('k', fullcommand(':ke'))
+  # single character commands not supported in MNV9
+  assert_equal('', fullcommand(':k'))
+  assert_equal('keepmarks', fullcommand(':ke'))
+  assert_equal('keepmarks', fullcommand(':kee'))
+  assert_equal('keepmarks', fullcommand(':keep'))
+  assert_equal('keepmarks', fullcommand(':keepm'))
+  assert_equal('keepmarks', fullcommand(':keepma'))
+  assert_equal('keepmarks', fullcommand(':keepmar'))
+  assert_equal('keepmarks', fullcommand(':keepmark'))
+  assert_equal('keepmarks', fullcommand(':keepmarks'))
+  assert_equal('keepalt', fullcommand(':keepa'))
+  assert_equal('keepalt', fullcommand(':keepal'))
+  assert_equal('keepalt', fullcommand(':keepalt'))
+  assert_equal('keepjumps', fullcommand(':keepj'))
+  assert_equal('keepjumps', fullcommand(':keepju'))
+  assert_equal('keepjumps', fullcommand(':keepjum'))
+  assert_equal('keepjumps', fullcommand(':keepjump'))
+  assert_equal('keepjumps', fullcommand(':keepjumps'))
+  assert_equal('keeppatterns', fullcommand(':keepp'))
+  assert_equal('keeppatterns', fullcommand(':keeppa'))
+  assert_equal('keeppatterns', fullcommand(':keeppat'))
+  assert_equal('keeppatterns', fullcommand(':keeppatt'))
+  assert_equal('keeppatterns', fullcommand(':keeppatte'))
+  assert_equal('keeppatterns', fullcommand(':keeppatter'))
+  assert_equal('keeppatterns', fullcommand(':keeppattern'))
+  assert_equal('keeppatterns', fullcommand(':keeppatterns'))
+enddef
+
+def Test_cmdmod_completion()
+  for mod in s:get_cmdmods()
+    var cmd = $'{mod} ed'
+    if mod == 'filter'
+      cmd = $'{mod} /pattern/ ed'
+    endif
+    assert_equal('edit', getcompletion(cmd, 'cmdline')[0])
+  endfor
+enddef
+
+" mnv: shiftwidth=2 sts=2 expandtab
+