Mercurial > vim
annotate src/testdir/test_quotestar.vim @ 16050:c19853508d3e v8.1.1030
patch 8.1.1030: quickfix function arguments are inconsistent
commit https://github.com/vim/vim/commit/0398e00a1bf79e85223fb26938c8dd0d54883b77
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Mar 21 21:12:49 2019 +0100
patch 8.1.1030: quickfix function arguments are inconsistent
Problem: Quickfix function arguments are inconsistent.
Solution: Pass a list pointer instead of info and index. (Yegappan
Lakshmanan, closes #4135)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 21 Mar 2019 21:15:06 +0100 |
parents | 16a062cf08c2 |
children | 3b5d401a58ce |
rev | line source |
---|---|
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
1 " *-register (quotestar) tests |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
2 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
3 if !has('clipboard') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
4 finish |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
5 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
6 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
7 source shared.vim |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
8 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
9 func Do_test_quotestar_for_macunix() |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
10 if empty(exepath('pbcopy')) || empty(exepath('pbpaste')) |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
11 return 'Test requires pbcopy(1) and pbpaste(1)' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
12 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
13 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
14 let @* = '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
15 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
16 " Test #1: Pasteboard to Vim |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
17 let test_msg = "text from pasteboard to vim via quotestar" |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
18 " Write a piece of text to the pasteboard. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
19 call system('/bin/echo -n "' . test_msg . '" | pbcopy') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
20 " See if the *-register is changed as expected. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
21 call assert_equal(test_msg, @*) |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
22 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
23 " Test #2: Vim to Pasteboard |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
24 let test_msg = "text from vim to pasteboard via quotestar" |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
25 " Write a piece of text to the *-register. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
26 let @* = test_msg |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
27 " See if the pasteboard is changed as expected. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
28 call assert_equal(test_msg, system('pbpaste')) |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
29 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
30 return '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
31 endfunc |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
32 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
33 func Do_test_quotestar_for_x11() |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
34 if !has('clientserver') || !has('job') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
35 return 'Test requires the client-server and job features' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
36 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
37 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
38 let cmd = GetVimCommand() |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
39 if cmd == '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
40 return 'GetVimCommand() failed' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
41 endif |
11242
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
42 try |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
43 call remote_send('xxx', '') |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
44 catch |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
45 if v:exception =~ 'E240:' |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
46 " No connection to the X server, give up. |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
47 return |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
48 endif |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
49 " ignore other errors |
9612b93820a4
patch 8.0.0507: client-server tests fail when $DISPLAY is not set
Christian Brabandt <cb@256bit.org>
parents:
11227
diff
changeset
|
50 endtry |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
51 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
52 let name = 'XVIMCLIPBOARD' |
11498
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
53 |
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
54 " Make sure a previous server has exited |
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
55 try |
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
56 call remote_send(name, ":qa!\<CR>") |
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
57 catch /E241:/ |
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
58 endtry |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
59 call WaitForAssert({-> assert_notmatch(name, serverlist())}) |
11498
370e833dcd4d
patch 8.0.0632: the quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11250
diff
changeset
|
60 |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
61 let cmd .= ' --servername ' . name |
12765
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
62 let job = job_start(cmd, {'stoponexit': 'kill', 'out_io': 'null'}) |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
63 call WaitForAssert({-> assert_equal("run", job_status(job))}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
64 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
65 " Takes a short while for the server to be active. |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
66 call WaitForAssert({-> assert_match(name, serverlist())}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
67 |
11227
9bfae04699c3
patch 8.0.0500: quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11217
diff
changeset
|
68 " Wait for the server to be up and answering requests. One second is not |
9bfae04699c3
patch 8.0.0500: quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11217
diff
changeset
|
69 " always sufficient. |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
70 call WaitForAssert({-> assert_notequal('', remote_expr(name, "v:version", "", 2))}) |
11227
9bfae04699c3
patch 8.0.0500: quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11217
diff
changeset
|
71 |
13324
283d0ee46f00
patch 8.0.1536: quotestar test is flaky when using the GUI
Christian Brabandt <cb@256bit.org>
parents:
12765
diff
changeset
|
72 " Clear the *-register of this vim instance and wait for it to be picked up |
283d0ee46f00
patch 8.0.1536: quotestar test is flaky when using the GUI
Christian Brabandt <cb@256bit.org>
parents:
12765
diff
changeset
|
73 " by the server. |
283d0ee46f00
patch 8.0.1536: quotestar test is flaky when using the GUI
Christian Brabandt <cb@256bit.org>
parents:
12765
diff
changeset
|
74 let @* = 'no' |
283d0ee46f00
patch 8.0.1536: quotestar test is flaky when using the GUI
Christian Brabandt <cb@256bit.org>
parents:
12765
diff
changeset
|
75 call remote_foreground(name) |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
76 call WaitForAssert({-> assert_equal("no", remote_expr(name, "@*", "", 1))}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
77 |
13324
283d0ee46f00
patch 8.0.1536: quotestar test is flaky when using the GUI
Christian Brabandt <cb@256bit.org>
parents:
12765
diff
changeset
|
78 " Set the * register on the server. |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
79 call remote_send(name, ":let @* = 'yes'\<CR>") |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
80 call WaitForAssert({-> assert_equal("yes", remote_expr(name, "@*", "", 1))}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
81 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
82 " Check that the *-register of this vim instance is changed as expected. |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
83 call WaitForAssert({-> assert_equal("yes", @*)}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
84 |
11709
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
85 " Handle the large selection over 262040 byte. |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
86 let length = 262044 |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
87 let sample = 'a' . repeat('b', length - 2) . 'c' |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
88 let @* = sample |
13650
87ffb7f85b28
patch 8.0.1697: various tests are still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
13324
diff
changeset
|
89 call WaitFor('remote_expr("' . name . '", "len(@*) >= ' . length . '", "", 1)') |
11709
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
90 let res = remote_expr(name, "@*", "", 2) |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
91 call assert_equal(length, len(res)) |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
92 " Check length to prevent a large amount of output at assertion failure. |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
93 if length == len(res) |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
94 call assert_equal(sample, res) |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
95 endif |
c3227699ad4d
patch 8.0.0737: crash when X11 selection is very big
Christian Brabandt <cb@256bit.org>
parents:
11498
diff
changeset
|
96 |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
97 if has('unix') && has('gui') && !has('gui_running') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
98 let @* = '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
99 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
100 " Running in a terminal and the GUI is avaiable: Tell the server to open |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
101 " the GUI and check that the remote command still works. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
102 " Need to wait for the GUI to start up, otherwise the send hangs in trying |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
103 " to send to the terminal window. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
104 if has('gui_athena') || has('gui_motif') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
105 " For those GUIs, ignore the 'failed to create input context' error. |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
106 call remote_send(name, ":call test_ignore_error('E285') | gui -f\<CR>") |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
107 else |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
108 call remote_send(name, ":gui -f\<CR>") |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
109 endif |
11227
9bfae04699c3
patch 8.0.0500: quotestar test is still a bit flaky
Christian Brabandt <cb@256bit.org>
parents:
11217
diff
changeset
|
110 " Wait for the server in the GUI to be up and answering requests. |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
111 call WaitForAssert({-> assert_match("1", remote_expr(name, "has('gui_running')", "", 1))}) |
11217
466657ab7340
patch 8.0.0495: quotestar test uses timer instead of timeout
Christian Brabandt <cb@256bit.org>
parents:
11209
diff
changeset
|
112 |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
113 call remote_send(name, ":let @* = 'maybe'\<CR>") |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
114 call WaitForAssert({-> assert_equal("maybe", remote_expr(name, "@*", "", 2))}) |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
115 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
116 call assert_equal('maybe', @*) |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
117 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
118 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
119 call remote_send(name, ":qa!\<CR>") |
12765
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
120 try |
13808
16a062cf08c2
patch 8.0.1776: in tests, when WaitFor() fails it doesn't say why
Christian Brabandt <cb@256bit.org>
parents:
13650
diff
changeset
|
121 call WaitForAssert({-> assert_equal("dead", job_status(job))}) |
12765
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
122 finally |
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
123 if job_status(job) != 'dead' |
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
124 call assert_report('Server did not exit') |
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
125 call job_stop(job, 'kill') |
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
126 endif |
c1347c968d31
patch 8.0.1260: using global variables for WaitFor()
Christian Brabandt <cb@256bit.org>
parents:
11709
diff
changeset
|
127 endtry |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
128 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
129 return '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
130 endfunc |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
131 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
132 func Test_quotestar() |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
133 let skipped = '' |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
134 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
135 let quotestar_saved = @* |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
136 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
137 if has('macunix') |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
138 let skipped = Do_test_quotestar_for_macunix() |
11250
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
139 elseif has('x11') |
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
140 if empty($DISPLAY) |
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
141 let skipped = "Test can only run when $DISPLAY is set." |
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
142 else |
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
143 let skipped = Do_test_quotestar_for_x11() |
ca5550f66b27
patch 8.0.0511: message for skipping client-server tests is unclear
Christian Brabandt <cb@256bit.org>
parents:
11242
diff
changeset
|
144 endif |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
145 else |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
146 let skipped = "Test is not implemented yet for this platform." |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
147 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
148 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
149 let @* = quotestar_saved |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
150 |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
151 if !empty(skipped) |
11209
1083038c59ba
patch 8.0.0491: quotestar test fails when features are missing
Christian Brabandt <cb@256bit.org>
parents:
11205
diff
changeset
|
152 throw 'Skipped: ' . skipped |
11205
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
153 endif |
4db196820d3b
patch 8.0.0489: clipboard and "* register is not tested
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
154 endfunc |