Tests for the exists() and has() functions.  vim: set ft=vim ts=8 sw=2 :

STARTTEST
:so small.vim
:function! RunTest(str, result)
    if exists(a:str) == a:result
	echo "OK"
    else
	echo "FAILED: Checking for " . a:str
    endif
endfunction
:function! TestExists()
    augroup myagroup
	autocmd! BufEnter       *.my     echo "myfile edited"
	autocmd! FuncUndefined  UndefFun exec "fu UndefFun()\nendfu"
    augroup END
    set rtp+=./sautest

    let test_cases = []

    " valid autocmd group
    let test_cases += [['#myagroup', 1]]
    " valid autocmd group with garbage
    let test_cases += [['#myagroup+b', 0]]
    " Valid autocmd group and event
    let test_cases += [['#myagroup#BufEnter', 1]]
    " Valid autocmd group, event and pattern
    let test_cases += [['#myagroup#BufEnter#*.my', 1]]
    " Valid autocmd event
    let test_cases += [['#BufEnter', 1]]
    " Valid autocmd event and pattern
    let test_cases += [['#BufEnter#*.my', 1]]
    " Non-existing autocmd group or event
    let test_cases += [['#xyzagroup', 0]]
    " Non-existing autocmd group and valid autocmd event
    let test_cases += [['#xyzagroup#BufEnter', 0]]
    " Valid autocmd group and event with no matching pattern
    let test_cases += [['#myagroup#CmdwinEnter', 0]]
    " Valid autocmd group and non-existing autocmd event
    let test_cases += [['#myagroup#xyzacmd', 0]]
    " Valid autocmd group and event and non-matching pattern
    let test_cases += [['#myagroup#BufEnter#xyzpat', 0]]
    " Valid autocmd event and non-matching pattern
    let test_cases += [['#BufEnter#xyzpat', 0]]
    " Empty autocmd group, event and pattern
    let test_cases += [['###', 0]]
    " Empty autocmd group and event or empty event and pattern
    let test_cases += [['##', 0]]
    " Valid autocmd event
    let test_cases += [['##FileReadCmd', 1]]
    " Non-existing autocmd event
    let test_cases += [['##MySpecialCmd', 0]]

    " Existing and working option (long form)
    let test_cases += [['&textwidth', 1]]
    " Existing and working option (short form)
    let test_cases += [['&tw', 1]]
    " Existing and working option with garbage
    let test_cases += [['&tw-', 0]]
    " Global option
    let test_cases += [['&g:errorformat', 1]]
    " Local option
    let test_cases += [['&l:errorformat', 1]]
    " Negative form of existing and working option (long form)
    let test_cases += [['&nojoinspaces', 0]]
    " Negative form of existing and working option (short form)
    let test_cases += [['&nojs', 0]]
    " Non-existing option
    let test_cases += [['&myxyzoption', 0]]

    " Existing and working option (long form)
    let test_cases += [['+incsearch', 1]]
    " Existing and working option with garbage
    let test_cases += [['+incsearch!1', 0]]
    " Existing and working option (short form)
    let test_cases += [['+is', 1]]
    " Existing option that is hidden.
    let test_cases += [['+autoprint', 0]]

    " Existing environment variable
    let $EDITOR_NAME = 'Vim Editor'
    let test_cases += [['$EDITOR_NAME', 1]]
    " Non-existing environment variable
    let test_cases += [['$NON_ENV_VAR', 0]]

    " Valid internal function
    let test_cases += [['*bufnr', 1]]
    " Valid internal function with ()
    let test_cases += [['*bufnr()', 1]]
    " Non-existing internal function
    let test_cases += [['*myxyzfunc', 0]]
    " Valid internal function with garbage
    let test_cases += [['*bufnr&6', 0]]

    " Valid user defined function
    let test_cases += [['*TestExists', 1]]
    " Non-existing user defined function
    let test_cases += [['*MyxyzFunc', 0]]

    " Function that may be created by FuncUndefined event
    let test_cases += [['*UndefFun', 0]]
    " Function that may be created by script autoloading
    let test_cases += [['*footest#F', 0]]

    redir! > test.out

    for [test_case, result] in test_cases
        echo test_case . ": " . result
        call RunTest(test_case, result)
    endfor

    " Valid internal command (full match)
    echo ':edit: 2'
    if exists(':edit') == 2
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid internal command (full match) with garbage
    echo ':edit/a: 0'
    if exists(':edit/a') == 0
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid internal command (partial match)
    echo ':q: 1'
    if exists(':q') == 1
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing internal command
    echo ':invalidcmd: 0'
    if !exists(':invalidcmd')
	echo "OK"
    else
	echo "FAILED"
    endif

    " User defined command (full match)
    command! MyCmd :echo 'My command'
    echo ':MyCmd: 2'
    if exists(':MyCmd') == 2
	echo "OK"
    else
	echo "FAILED"
    endif

    " User defined command (partial match)
    command! MyOtherCmd :echo 'Another command'
    echo ':My: 3'
    if exists(':My') == 3
	echo "OK"
    else
	echo "FAILED"
    endif

    " Command modifier
    echo ':rightbelow: 2'
    if exists(':rightbelow') == 2
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing user defined command (full match)
    delcommand MyCmd

    echo ':MyCmd: 0'
    if !exists(':MyCmd')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing user defined command (partial match)
    delcommand MyOtherCmd

    echo ':My: 0'
    if !exists(':My')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local variable
    let local_var = 1
    echo 'local_var: 1'
    if exists('local_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local variable with garbage
    let local_var = 1
    echo 'local_var%n: 0'
    if !exists('local_var%n')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing local variable
    unlet local_var
    echo 'local_var: 0'
    if !exists('local_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing autoload variable that may be autoloaded
    echo 'footest#x: 0'
    if !exists('footest#x')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local list
    let local_list = ["blue", "orange"]
    echo 'local_list: 1'
    if exists('local_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local list item
    echo 'local_list[1]: 1'
    if exists('local_list[1]')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local list item with garbage
    echo 'local_list[1]+5: 0'
    if !exists('local_list[1]+5')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Invalid local list item
    echo 'local_list[2]: 0'
    if !exists('local_list[2]')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing local list
    unlet local_list
    echo 'local_list: 0'
    if !exists('local_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Valid local dictionary
    let local_dict = {"xcord":100, "ycord":2}
    echo 'local_dict: 1'
    if exists('local_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing local dictionary
    unlet local_dict
    echo 'local_dict: 0'
    if !exists('local_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing local curly-brace variable
    let str = "local"
    let curly_{str}_var = 1
    echo 'curly_' . str . '_var: 1'
    if exists('curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing local curly-brace variable
    unlet curly_{str}_var
    echo 'curly_' . str . '_var: 0'
    if !exists('curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif


    " Existing global variable
    let g:global_var = 1
    echo 'g:global_var: 1'
    if exists('g:global_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing global variable with garbage
    echo 'g:global_var-n: 1'
    if !exists('g:global_var-n')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing global variable
    unlet g:global_var
    echo 'g:global_var: 0'
    if !exists('g:global_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing global list
    let g:global_list = ["blue", "orange"]
    echo 'g:global_list: 1'
    if exists('g:global_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing global list
    unlet g:global_list
    echo 'g:global_list: 0'
    if !exists('g:global_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing global dictionary
    let g:global_dict = {"xcord":100, "ycord":2}
    echo 'g:global_dict: 1'
    if exists('g:global_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing global dictionary
    unlet g:global_dict
    echo 'g:global_dict: 0'
    if !exists('g:global_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing global curly-brace variable
    let str = "global"
    let g:curly_{str}_var = 1
    echo 'g:curly_' . str . '_var: 1'
    if exists('g:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing global curly-brace variable
    unlet g:curly_{str}_var
    echo 'g:curly_' . str . '_var: 0'
    if !exists('g:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing window variable
    echo 'w:window_var: 1'
    let w:window_var = 1
    if exists('w:window_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing window variable
    unlet w:window_var
    echo 'w:window_var: 0'
    if !exists('w:window_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing window list
    let w:window_list = ["blue", "orange"]
    echo 'w:window_list: 1'
    if exists('w:window_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing window list
    unlet w:window_list
    echo 'w:window_list: 0'
    if !exists('w:window_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing window dictionary
    let w:window_dict = {"xcord":100, "ycord":2}
    echo 'w:window_dict: 1'
    if exists('w:window_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing window dictionary
    unlet w:window_dict
    echo 'w:window_dict: 0'
    if !exists('w:window_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing window curly-brace variable
    let str = "window"
    let w:curly_{str}_var = 1
    echo 'w:curly_' . str . '_var: 1'
    if exists('w:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing window curly-brace variable
    unlet w:curly_{str}_var
    echo 'w:curly_' . str . '_var: 0'
    if !exists('w:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing buffer variable
    echo 'b:buffer_var: 1'
    let b:buffer_var = 1
    if exists('b:buffer_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing buffer variable
    unlet b:buffer_var
    echo 'b:buffer_var: 0'
    if !exists('b:buffer_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing buffer list
    let b:buffer_list = ["blue", "orange"]
    echo 'b:buffer_list: 1'
    if exists('b:buffer_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing buffer list
    unlet b:buffer_list
    echo 'b:buffer_list: 0'
    if !exists('b:buffer_list')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing buffer dictionary
    let b:buffer_dict = {"xcord":100, "ycord":2}
    echo 'b:buffer_dict: 1'
    if exists('b:buffer_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing buffer dictionary
    unlet b:buffer_dict
    echo 'b:buffer_dict: 0'
    if !exists('b:buffer_dict')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Existing buffer curly-brace variable
    let str = "buffer"
    let b:curly_{str}_var = 1
    echo 'b:curly_' . str . '_var: 1'
    if exists('b:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing buffer curly-brace variable
    unlet b:curly_{str}_var
    echo 'b:curly_' . str . '_var: 0'
    if !exists('b:curly_{str}_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Script-local tests
    source test60.vim

    " Existing Vim internal variable
    echo 'v:version: 1'
    if exists('v:version')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Non-existing Vim internal variable
    echo 'v:non_exists_var: 0'
    if !exists('v:non_exists_var')
	echo "OK"
    else
	echo "FAILED"
    endif

    " Function arguments
    function TestFuncArg(func_arg, ...)
        echo 'a:func_arg: 1'
        if exists('a:func_arg')
            echo "OK"
        else
            echo "FAILED"
        endif

        echo 'a:non_exists_arg: 0'
        if !exists('a:non_exists_arg')
            echo "OK"
        else
            echo "FAILED"
        endif

        echo 'a:1: 1'
        if exists('a:1')
            echo "OK"
        else
            echo "FAILED"
        endif

        echo 'a:2: 0'
        if !exists('a:2')
            echo "OK"
        else
            echo "FAILED"
        endif
    endfunction

    call TestFuncArg("arg1", "arg2")

    echo ' g:footest#x =' g:footest#x
    echo '   footest#F()' footest#F()
    echo 'UndefFun()' UndefFun()

    redir END
endfunction
:call TestExists()
:"
:function TestHas()
  redir >> test.out
  for pl in ['6.9.999', '7.1.999', '7.4.123', '9.1.0', '9.9.1']
    echo 'has patch ' . pl . ': ' . has('patch-' . pl)
  endfor
  redir END
endfunc
:call TestHas()
:"
:delfunc TestExists
:delfunc RunTest
:delfunc TestFuncArg
:edit! test.out
:set ff=unix
:w
:qa!
:while getchar(1) | call getchar() | endwhile
ENDTEST