Mercurial > vim

annotate src/testdir/test_ex_mode.vim @ 19319:c5f04bfc7bf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.2.0217 for changeset 673a95ef80afd8df2303b924957c7f84df19dd15
author Bram Moolenaar <Bram@vim.org>
date Wed, 05 Feb 2020 22:30:05 +0100
parents 2f0f308c069c
children 02111977dd05
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18924
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1 " Test editing line in Ex mode (see :help Q and :help gQ).
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2
19289
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
3 source check.vim
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
4
18924
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5 " Helper function to test editing line in Q Ex mode
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
6 func Ex_Q(cmd)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
7 " Is there a simpler way to test editing Ex line?
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
8 call feedkeys("Q"
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
9 \ .. "let s:test_ex =<< END\<CR>"
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
10 \ .. a:cmd .. "\<CR>"
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
11 \ .. "END\<CR>"
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
12 \ .. "visual\<CR>", 'tx')
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
13 return s:test_ex[0]
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
14 endfunc
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
15
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 " Helper function to test editing line in gQ Ex mode
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
17 func Ex_gQ(cmd)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
18 call feedkeys("gQ" .. a:cmd .. "\<C-b>\"\<CR>", 'tx')
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
19 let ret = @:[1:] " Remove leading quote.
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
20 call feedkeys("visual\<CR>", 'tx')
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
21 return ret
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 endfunc
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
23
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
24 " Helper function to test editing line with both Q and gQ Ex mode.
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
25 func Ex(cmd)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
26 return [Ex_Q(a:cmd), Ex_gQ(a:cmd)]
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
27 endfunc
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
28
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
29 " Test editing line in Ex mode (both Q and gQ)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
30 func Test_ex_mode()
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
31 let encoding_save = &encoding
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
32 set sw=2
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
33
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
34 for e in ['utf8', 'latin1']
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
35 exe 'set encoding=' . e
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
36
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
37 call assert_equal(['bar', 'bar'], Ex("foo bar\<C-u>bar"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
38 call assert_equal(["1\<C-u>2", "1\<C-u>2"], Ex("1\<C-v>\<C-u>2"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
39 call assert_equal(["1\<C-b>2\<C-e>3", '213'], Ex("1\<C-b>2\<C-e>3"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
40 call assert_equal(['0123', '2013'], Ex("01\<Home>2\<End>3"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
41 call assert_equal(['0123', '0213'], Ex("01\<Left>2\<Right>3"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
42 call assert_equal(['01234', '0342'], Ex("012\<Left>\<Left>\<Insert>3\<Insert>4"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
43 call assert_equal(["foo bar\<C-w>", 'foo '], Ex("foo bar\<C-w>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
44 call assert_equal(['foo', 'foo'], Ex("fooba\<Del>\<Del>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
45 call assert_equal(["foo\tbar", 'foobar'], Ex("foo\<Tab>bar"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
46 call assert_equal(["abbrev\t", 'abbreviate'], Ex("abbrev\<Tab>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
47 call assert_equal([' 1', "1\<C-t>\<C-t>"], Ex("1\<C-t>\<C-t>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
48 call assert_equal([' 1', "1\<C-t>\<C-t>"], Ex("1\<C-t>\<C-t>\<C-d>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
49 call assert_equal([' foo', ' foo'], Ex(" foo\<C-d>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
50 call assert_equal(['foo', ' foo0'], Ex(" foo0\<C-d>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
51 call assert_equal(['foo', ' foo^'], Ex(" foo^\<C-d>"), e)
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
52 endfor
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
53
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
54 set sw&
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
55 let &encoding = encoding_save
a18d7782b80f patch 8.2.0023: command line editing not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
56 endfunc
19289
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
57
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
58 " Test subsittute confirmation prompt :%s/pat/str/c in Ex mode
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
59 func Test_Ex_substitute()
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
60 CheckRunVimInTerminal
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
61 let buf = RunVimInTerminal('', {'rows': 6})
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
62
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
63 call term_sendkeys(buf, ":call setline(1, ['foo foo', 'foo foo', 'foo foo'])\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
64 call term_sendkeys(buf, ":set number\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
65 call term_sendkeys(buf, "gQ")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
66 call WaitForAssert({-> assert_match(':', term_getline(buf, 6))}, 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
67
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
68 call term_sendkeys(buf, "%s/foo/bar/gc\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
69 call WaitForAssert({-> assert_match(' 1 foo foo', term_getline(buf, 5))},
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
70 \ 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
71 call WaitForAssert({-> assert_match(' ^^^', term_getline(buf, 6))}, 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
72 call term_sendkeys(buf, "n\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
73 call WaitForAssert({-> assert_match(' ^^^', term_getline(buf, 6))},
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
74 \ 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
75 call term_sendkeys(buf, "y\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
76
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
77 call term_sendkeys(buf, "q\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
78 call WaitForAssert({-> assert_match(':', term_getline(buf, 6))}, 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
79
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
80 call term_sendkeys(buf, ":vi\<CR>")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
81 call WaitForAssert({-> assert_match('foo bar', term_getline(buf, 1))}, 1000)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
82
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
83 call term_sendkeys(buf, ":q!\n")
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
84 call StopVimInTerminal(buf)
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
85 endfunc
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
86
2f0f308c069c patch 8.2.0203: :helptags and some other functionality not tested
Bram Moolenaar <Bram@vim.org>
parents: 18924
diff changeset
87 " vim: shiftwidth=2 sts=2 expandtab