blob: c3f2563898e6c093f148053f3154835537f0c8c1 [file] [log] [blame]
Bram Moolenaar07282f02019-10-10 16:46:17 +02001source shared.vim
Bram Moolenaar3180fe62020-02-02 13:47:06 +01002source term_util.vim
Bram Moolenaar07282f02019-10-10 16:46:17 +02003
Bram Moolenaar7f829ca2020-01-31 22:12:41 +01004command -nargs=1 MissingFeature throw 'Skipped: ' .. <args> .. ' feature missing'
5
Bram Moolenaarb46fecd2019-06-15 17:58:09 +02006" Command to check for the presence of a feature.
7command -nargs=1 CheckFeature call CheckFeature(<f-args>)
8func CheckFeature(name)
Bram Moolenaar79296512020-03-22 16:17:14 +01009 if !has(a:name, 1)
10 throw 'Checking for non-existent feature ' .. a:name
11 endif
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020012 if !has(a:name)
Bram Moolenaar7f829ca2020-01-31 22:12:41 +010013 MissingFeature a:name
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020014 endif
15endfunc
16
Bram Moolenaarfb773a32021-07-03 21:37:59 +020017" Command to check for the absence of a feature.
18command -nargs=1 CheckNotFeature call CheckNotFeature(<f-args>)
19func CheckNotFeature(name)
20 if !has(a:name, 1)
21 throw 'Checking for non-existent feature ' .. a:name
22 endif
23 if has(a:name)
24 throw 'Skipped: ' .. a:name .. ' feature present'
25 endif
26endfunc
27
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020028" Command to check for the presence of a working option.
29command -nargs=1 CheckOption call CheckOption(<f-args>)
30func CheckOption(name)
Bram Moolenaarc5a8fdc2020-03-22 20:13:39 +010031 if !exists('&' .. a:name)
32 throw 'Checking for non-existent option ' .. a:name
33 endif
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020034 if !exists('+' .. a:name)
35 throw 'Skipped: ' .. a:name .. ' option not supported'
36 endif
37endfunc
38
Bram Moolenaar15c47602020-03-26 22:16:48 +010039" Command to check for the presence of a built-in function.
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020040command -nargs=1 CheckFunction call CheckFunction(<f-args>)
41func CheckFunction(name)
Bram Moolenaar15c47602020-03-26 22:16:48 +010042 if !exists('?' .. a:name)
43 throw 'Checking for non-existent function ' .. a:name
44 endif
Bram Moolenaarb46fecd2019-06-15 17:58:09 +020045 if !exists('*' .. a:name)
46 throw 'Skipped: ' .. a:name .. ' function missing'
47 endif
48endfunc
Bram Moolenaar4641a122019-07-29 22:10:23 +020049
Bram Moolenaar8c5a2782019-08-07 23:07:07 +020050" Command to check for the presence of an Ex command
51command -nargs=1 CheckCommand call CheckCommand(<f-args>)
52func CheckCommand(name)
53 if !exists(':' .. a:name)
54 throw 'Skipped: ' .. a:name .. ' command not supported'
55 endif
56endfunc
57
58" Command to check for the presence of a shell command
59command -nargs=1 CheckExecutable call CheckExecutable(<f-args>)
60func CheckExecutable(name)
61 if !executable(a:name)
62 throw 'Skipped: ' .. a:name .. ' program not executable'
63 endif
64endfunc
65
Bram Moolenaara161cb52020-04-30 19:09:35 +020066" Command to check for the presence of python. Argument should have been
67" obtained with PythonProg()
68func CheckPython(name)
69 if a:name == ''
70 throw 'Skipped: python command not available'
71 endif
72endfunc
73
Bram Moolenaar4641a122019-07-29 22:10:23 +020074" Command to check for running on MS-Windows
75command CheckMSWindows call CheckMSWindows()
76func CheckMSWindows()
77 if !has('win32')
78 throw 'Skipped: only works on MS-Windows'
79 endif
80endfunc
81
Bram Moolenaar8c5a2782019-08-07 23:07:07 +020082" Command to check for NOT running on MS-Windows
83command CheckNotMSWindows call CheckNotMSWindows()
84func CheckNotMSWindows()
85 if has('win32')
86 throw 'Skipped: does not work on MS-Windows'
87 endif
88endfunc
89
Bram Moolenaar4641a122019-07-29 22:10:23 +020090" Command to check for running on Unix
91command CheckUnix call CheckUnix()
92func CheckUnix()
93 if !has('unix')
94 throw 'Skipped: only works on Unix'
95 endif
96endfunc
Bram Moolenaar3c8ee622019-08-03 22:55:50 +020097
LemonBoycc766a82022-04-04 15:46:58 +010098" Command to check for running on Linux
Bram Moolenaar6635ae12021-03-10 21:46:39 +010099command CheckLinux call CheckLinux()
100func CheckLinux()
101 if !has('linux')
102 throw 'Skipped: only works on Linux'
103 endif
104endfunc
105
Bram Moolenaar8b9abfd2021-03-29 20:49:05 +0200106" Command to check for not running on a BSD system.
107command CheckNotBSD call CheckNotBSD()
108func CheckNotBSD()
109 if has('bsd')
110 throw 'Skipped: does not work on BSD'
111 endif
112endfunc
113
Bram Moolenaar0056ca72022-09-23 21:26:39 +0100114" Command to check for not running on a MacOS M1 system.
115command CheckNotMacM1 call CheckNotMacM1()
116func CheckNotMacM1()
117 if has('mac') && system('uname -a') =~ '\<arm64\>'
118 throw 'Skipped: does not work on MacOS M1'
119 endif
120endfunc
121
Bram Moolenaar3c8ee622019-08-03 22:55:50 +0200122" Command to check that making screendumps is supported.
123" Caller must source screendump.vim
124command CheckScreendump call CheckScreendump()
125func CheckScreendump()
126 if !CanRunVimInTerminal()
127 throw 'Skipped: cannot make screendumps'
128 endif
129endfunc
130
131" Command to check that we can Run Vim in a terminal window
132command CheckRunVimInTerminal call CheckRunVimInTerminal()
133func CheckRunVimInTerminal()
134 if !CanRunVimInTerminal()
135 throw 'Skipped: cannot run Vim in a terminal window'
136 endif
137endfunc
Bram Moolenaar8c5a2782019-08-07 23:07:07 +0200138
139" Command to check that we can run the GUI
140command CheckCanRunGui call CheckCanRunGui()
141func CheckCanRunGui()
142 if !has('gui') || ($DISPLAY == "" && !has('gui_running'))
Bram Moolenaar25143152019-08-09 14:13:57 +0200143 throw 'Skipped: cannot start the GUI'
Bram Moolenaar8c5a2782019-08-07 23:07:07 +0200144 endif
145endfunc
146
Bram Moolenaard6fa7bd2021-07-05 14:10:04 +0200147" Command to Check for an environment variable
148command -nargs=1 CheckEnv call CheckEnv(<f-args>)
149func CheckEnv(name)
Bram Moolenaarf6d87792021-07-05 17:49:02 +0200150 if empty(eval('$' .. a:name))
Bram Moolenaard6fa7bd2021-07-05 14:10:04 +0200151 throw 'Skipped: Environment variable ' .. a:name .. ' is not set'
152 endif
153endfunc
154
Bram Moolenaar8c5a2782019-08-07 23:07:07 +0200155" Command to check that we are using the GUI
156command CheckGui call CheckGui()
157func CheckGui()
158 if !has('gui_running')
159 throw 'Skipped: only works in the GUI'
160 endif
161endfunc
162
163" Command to check that not currently using the GUI
164command CheckNotGui call CheckNotGui()
165func CheckNotGui()
166 if has('gui_running')
167 throw 'Skipped: only works in the terminal'
168 endif
169endfunc
Bram Moolenaar07282f02019-10-10 16:46:17 +0200170
171" Command to check that test is not running as root
172command CheckNotRoot call CheckNotRoot()
173func CheckNotRoot()
174 if IsRoot()
175 throw 'Skipped: cannot run test as root'
176 endif
177endfunc
Bram Moolenaarcde0ff32020-04-04 14:00:39 +0200178
179" Command to check that the current language is English
180command CheckEnglish call CheckEnglish()
181func CheckEnglish()
182 if v:lang != "C" && v:lang !~ '^[Ee]n'
183 throw 'Skipped: only works in English language environment'
184 endif
185endfunc
186
Bram Moolenaarbfe13cc2020-04-12 17:53:12 +0200187" Command to check that loopback device has IPv6 address
188command CheckIPv6 call CheckIPv6()
189func CheckIPv6()
190 if !has('ipv6')
191 throw 'Skipped: cannot use IPv6 networking'
192 endif
193 if !exists('s:ipv6_loopback')
194 let s:ipv6_loopback = s:CheckIPv6Loopback()
195 endif
196 if !s:ipv6_loopback
197 throw 'Skipped: no IPv6 address for loopback device'
198 endif
199endfunc
200
201func s:CheckIPv6Loopback()
202 if has('win32')
203 return system('netsh interface ipv6 show interface') =~? '\<Loopback\>'
204 elseif filereadable('/proc/net/if_inet6')
205 return (match(readfile('/proc/net/if_inet6'), '\slo$') >= 0)
206 elseif executable('ifconfig')
207 for dev in ['lo0', 'lo', 'loop']
208 " NOTE: On SunOS, need specify address family 'inet6' to get IPv6 info.
209 if system('ifconfig ' .. dev .. ' inet6 2>/dev/null') =~? '\<inet6\>'
210 \ || system('ifconfig ' .. dev .. ' 2>/dev/null') =~? '\<inet6\>'
211 return v:true
212 endif
213 endfor
214 else
215 " TODO: How to check it in other platforms?
216 endif
217 return v:false
218endfunc
219
Bram Moolenaar97202d92021-01-28 18:34:35 +0100220" Command to check for not running under ASAN
221command CheckNotAsan call CheckNotAsan()
222func CheckNotAsan()
223 if execute('version') =~# '-fsanitize=[a-z,]*\<address\>'
224 throw 'Skipped: does not work with ASAN'
225 endif
226endfunc
227
Bram Moolenaarcf801d42022-06-21 18:34:42 +0100228" Command to check for not running under valgrind
229command CheckNotValgrind call CheckNotValgrind()
230func CheckNotValgrind()
231 if RunningWithValgrind()
232 throw 'Skipped: does not work well with valgrind'
233 endif
234endfunc
235
Bram Moolenaar40bd5a12021-10-16 21:58:27 +0100236" Command to check for X11 based GUI
237command CheckX11BasedGui call CheckX11BasedGui()
238func CheckX11BasedGui()
239 if !g:x11_based_gui
240 throw 'Skipped: requires X11 based GUI'
241 endif
242endfunc
243
Ernie Rael559f2302022-07-26 14:44:36 +0100244" Command to check that there are two clipboards
245command CheckTwoClipboards call CheckTwoClipboards()
246func CheckTwoClipboards()
247 " avoid changing the clipboard here, only X11 supports both
248 if !has('X11')
249 throw 'Skipped: requires two clipboards'
250 endif
251endfunc
252
Bram Moolenaarf8c52e82021-03-17 12:27:23 +0100253" Command to check for satisfying any of the conditions.
254" e.g. CheckAnyOf Feature:bsd Feature:sun Linux
255command -nargs=+ CheckAnyOf call CheckAnyOf(<f-args>)
256func CheckAnyOf(...)
257 let excp = []
258 for arg in a:000
259 try
260 exe 'Check' .. substitute(arg, ':', ' ', '')
261 return
262 catch /^Skipped:/
263 let excp += [substitute(v:exception, '^Skipped:\s*', '', '')]
264 endtry
265 endfor
266 throw 'Skipped: ' .. join(excp, '; ')
267endfunc
268
269" Command to check for satisfying all of the conditions.
270" e.g. CheckAllOf Unix Gui Option:ballooneval
271command -nargs=+ CheckAllOf call CheckAllOf(<f-args>)
272func CheckAllOf(...)
273 for arg in a:000
274 exe 'Check' .. substitute(arg, ':', ' ', '')
275 endfor
276endfunc
277
Bram Moolenaarcde0ff32020-04-04 14:00:39 +0200278" vim: shiftwidth=2 sts=2 expandtab