Mercurial > vim
annotate src/testdir/check.vim @ 17437:5f71f12bdb8c
Added tag v8.1.1716 for changeset e1b5c15f5fee70aaa68aa8286030cf713a403aee
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Fri, 19 Jul 2019 23:30:05 +0200 |
| parents | 8e9e9124c7a2 |
| children | 4a22102fda8f |
| rev | line source |
|---|---|
|
17089
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
1 " Command to check for the presence of a feature. |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
2 command -nargs=1 CheckFeature call CheckFeature(<f-args>) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
3 func CheckFeature(name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
4 if !has(a:name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
5 throw 'Skipped: ' .. a:name .. ' feature missing' |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
6 endif |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
7 endfunc |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
8 |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
9 " Command to check for the presence of a working option. |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
10 command -nargs=1 CheckOption call CheckOption(<f-args>) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
11 func CheckOption(name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
12 if !exists('+' .. a:name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
13 throw 'Skipped: ' .. a:name .. ' option not supported' |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
14 endif |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
15 endfunc |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
16 |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
17 " Command to check for the presence of a function. |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
18 command -nargs=1 CheckFunction call CheckFunction(<f-args>) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
19 func CheckFunction(name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
20 if !exists('*' .. a:name) |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
21 throw 'Skipped: ' .. a:name .. ' function missing' |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
22 endif |
|
8e9e9124c7a2
patch 8.1.1544: some balloon tests don't run when they can
Bram Moolenaar <Bram@vim.org>
parents:
diff
changeset
|
23 endfunc |