Mercurial > vim
view src/testdir/test_usercommands.vim @ 10049:efc8a434f38f v7.4.2296
commit https://github.com/vim/vim/commit/c628fdcd46e93c308f742efdf54248695960e290
Author: Bram Moolenaar <Bram@vim.org>
Date: Wed Aug 31 20:33:27 2016 +0200
patch 7.4.2296
Problem: No tests for :undolist and "U" command.
Solution: Add tests. (Dominique Pelle)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Wed, 31 Aug 2016 20:45:05 +0200 |
parents | 1f33aece8e55 |
children | 6736cb425720 |
line wrap: on
line source
" Tests for user defined commands " Test for <mods> in user defined commands function Test_cmdmods() let g:mods = '' command! -nargs=* MyCmd let g:mods .= '<mods> ' MyCmd aboveleft MyCmd abo MyCmd belowright MyCmd bel MyCmd botright MyCmd bo MyCmd browse MyCmd bro MyCmd confirm MyCmd conf MyCmd hide MyCmd hid MyCmd keepalt MyCmd keepa MyCmd keepjumps MyCmd keepj MyCmd keepmarks MyCmd kee MyCmd keeppatterns MyCmd keepp MyCmd leftabove MyCmd " results in :aboveleft lefta MyCmd lockmarks MyCmd loc MyCmd " noautocmd MyCmd noswapfile MyCmd nos MyCmd rightbelow MyCmd " results in :belowright rightb MyCmd " sandbox MyCmd silent MyCmd sil MyCmd tab MyCmd topleft MyCmd to MyCmd " unsilent MyCmd verbose MyCmd verb MyCmd vertical MyCmd vert MyCmd aboveleft belowright botright browse confirm hide keepalt keepjumps \ keepmarks keeppatterns lockmarks noswapfile silent tab \ topleft verbose vertical MyCmd call assert_equal(' aboveleft aboveleft belowright belowright botright ' . \ 'botright browse browse confirm confirm hide hide ' . \ 'keepalt keepalt keepjumps keepjumps keepmarks keepmarks ' . \ 'keeppatterns keeppatterns aboveleft aboveleft lockmarks lockmarks noswapfile ' . \ 'noswapfile belowright belowright silent silent tab topleft topleft verbose verbose ' . \ 'vertical vertical ' . \ 'aboveleft belowright botright browse confirm hide keepalt keepjumps ' . \ 'keepmarks keeppatterns lockmarks noswapfile silent tab topleft ' . \ 'verbose vertical ', g:mods) let g:mods = '' command! -nargs=* MyQCmd let g:mods .= '<q-mods> ' vertical MyQCmd call assert_equal('"vertical" ', g:mods) delcommand MyCmd delcommand MyQCmd unlet g:mods endfunction func Test_Ambiguous() command Doit let g:didit = 'yes' command Dothat let g:didthat = 'also' call assert_fails('Do', 'E464:') Doit call assert_equal('yes', g:didit) Dothat call assert_equal('also', g:didthat) unlet g:didit unlet g:didthat delcommand Doit Do call assert_equal('also', g:didthat) delcommand Dothat endfunc func Test_CmdUndefined() call assert_fails('Doit', 'E492:') au CmdUndefined Doit :command Doit let g:didit = 'yes' Doit call assert_equal('yes', g:didit) delcommand Doit call assert_fails('Dothat', 'E492:') au CmdUndefined * let g:didnot = 'yes' call assert_fails('Dothat', 'E492:') call assert_equal('yes', g:didnot) endfunc