tests: Migrate legacy test searchpos

2 files changed, 35 insertions, 28 deletions

diff --git a/src/nvim/testdir/test_searchpos.vim b/src/nvim/testdir/test_searchpos.vim
deleted file mode 100644
index 4a1e024ce7..0000000000
--- a/src/nvim/testdir/test_searchpos.vim
+++ /dev/null
@@ -1,28 +0,0 @@
-" Tests for searchpos()
-
-func Test_searchpos()
-  new one
-  0put ='1a3'
-  1put ='123xyz'
-  call cursor(1, 1)
-  call assert_equal([1, 1, 2], searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW'))
-  call cursor(1, 2)
-  call assert_equal([2, 1, 1], searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW'))
-  set cpo-=c
-  call cursor(1, 2)
-  call assert_equal([1, 2, 2], searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW'))
-  call cursor(1, 3)
-  call assert_equal([1, 3, 1], searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW'))
-
-  " Now with \zs, first match is in column 0, "a" is matched.
-  call cursor(1. 3)
-  call assert_equal([2, 4, 2], searchpos('\%(\([a-z]\)\|\_.\)\{-}\zsxyz', 'pcW'))
-  " With z flag start at cursor column, don't see the "a".
-  call cursor(1. 3)
-  call assert_equal([2, 4, 1], searchpos('\%(\([a-z]\)\|\_.\)\{-}\zsxyz', 'pcWz'))
-
-  set cpo+=c
-  " close the window
-  q!
-
-endfunc
diff --git a/test/functional/legacy/searchpos_spec.lua b/test/functional/legacy/searchpos_spec.lua
new file mode 100644
index 0000000000..1c9b1ccee6
--- /dev/null
+++ b/test/functional/legacy/searchpos_spec.lua
@@ -0,0 +1,35 @@
+local helpers = require('test.functional.helpers')
+local call = helpers.call
+local clear = helpers.clear
+local execute = helpers.execute
+local eq = helpers.eq
+local eval = helpers.eval
+local insert = helpers.insert
+
+describe('searchpos', function()
+  before_each(clear)
+
+  it('is working', function()
+    insert([[
+      1a3
+      123xyz]])
+
+    call('cursor', 1, 1)
+    eq({1, 1, 2}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW')]]))
+    call('cursor', 1, 2)
+    eq({2, 1, 1}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW')]]))
+
+    execute('set cpo-=c')
+    call('cursor', 1, 2)
+    eq({1, 2, 2}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW')]]))
+    call('cursor', 1, 3)
+    eq({1, 3, 1}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}xyz', 'pcW')]]))
+
+    -- Now with \zs, first match is in column 0, "a" is matched.
+    call('cursor', 1, 3)
+    eq({2, 4, 2}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}\zsxyz', 'pcW')]]))
+    -- With z flag start at cursor column, don't see the "a".
+    call('cursor', 1, 3)
+    eq({2, 4, 1}, eval([[searchpos('\%(\([a-z]\)\|\_.\)\{-}\zsxyz', 'pcWz')]]))
+  end)
+end)