Mercurial > vim

diff src/testdir/test_cmdline.vim @ 13890:3aac8d62351c v8.0.1816

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.0.1816: no test for setcmdpos() commit https://github.com/vim/vim/commit/ff3be4fe1e2e723de48b826cb992c798e296c41e Author: Bram Moolenaar <Bram@vim.org> Date: Sat May 12 13:18:46 2018 +0200 patch 8.0.1816: no test for setcmdpos() Problem: No test for setcmdpos(). Solution: Add a test. (Dominique Pelle, closes https://github.com/vim/vim/issues/2901)
author Christian Brabandt <cb@256bit.org>
date Sat, 12 May 2018 13:30:06 +0200
parents 1f95ec5de238
children c3f9c37160e7
line wrap: on
line diff
--- a/src/testdir/test_cmdline.vim
+++ b/src/testdir/test_cmdline.vim
@@ -470,4 +470,25 @@ func Test_verbosefile()
   call delete('Xlog')
 endfunc
 
+func Test_setcmdpos()
+  func InsertTextAtPos(text, pos)
+    call assert_equal(0, setcmdpos(a:pos))
+    return a:text
+  endfunc
+
+  " setcmdpos() with position in the middle of the command line.
+  call feedkeys(":\"12\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt')
+  call assert_equal('"1ab2', @:)
+
+  call feedkeys(":\"12\<C-R>\<C-R>=InsertTextAtPos('a', 3)\<CR>b\<CR>", 'xt')
+  call assert_equal('"1b2a', @:)
+
+  " setcmdpos() with position beyond the end of the command line.
+  call feedkeys(":\"12\<C-B>\<C-R>=InsertTextAtPos('a', 10)\<CR>b\<CR>", 'xt')
+  call assert_equal('"12ab', @:)
+
+  " setcmdpos() returns 1 when not editing the command line.
+  call assert_equal(1, setcmdpos(3))
+endfunc
+
 set cpo&