Mercurial > vim
diff src/testdir/test_compiler.vim @ 13970:939cfab265b9 v8.1.0003
patch 8.1.0003: the :compiler command is not tested
commit https://github.com/vim/vim/commit/10561fe0a37efd611ccb1517b37de12d2e37af0f
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat May 19 15:01:10 2018 +0200
patch 8.1.0003: the :compiler command is not tested
Problem: The :compiler command is not tested.
Solution: Add a test. (Dominique Pelle, closes https://github.com/vim/vim/issues/2930)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 19 May 2018 15:15:05 +0200 |
parents | |
children | 255967236075 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/src/testdir/test_compiler.vim @@ -0,0 +1,50 @@ +" Test the :compiler command + +func Test_compiler() + if !executable('perl') + return + endif + + e Xfoo.pl + compiler perl + call assert_equal('perl', b:current_compiler) + call assert_fails('let g:current_compiler', 'E121:') + + call setline(1, ['#!/usr/bin/perl -w', 'use strict;', 'my $foo=1']) + w! + call feedkeys(":make\<CR>\<CR>", 'tx') + call assert_fails('clist', 'E42:') + + call setline(1, ['#!/usr/bin/perl -w', 'use strict;', '$foo=1']) + w! + call feedkeys(":make\<CR>\<CR>", 'tx') + let a=execute('clist') + call assert_equal("\n 1 Xfoo.pl:3: Global symbol \"\$foo\" " + \ . "requires explicit package name " + \ . "(did you forget to declare \"my $foo\"?)", a) + + call delete('Xfoo.pl') + bw! +endfunc + +func Test_compiler_without_arg() + let a=split(execute('compiler')) + call assert_equal($VIMRUNTIME . '/compiler/ant.vim', a[0]) + call assert_equal($VIMRUNTIME . '/compiler/bcc.vim', a[1]) + call assert_equal($VIMRUNTIME . '/compiler/xmlwf.vim', a[-1]) +endfunc + +func Test_compiler_completion() + call feedkeys(":compiler \<C-A>\<C-B>\"\<CR>", 'tx') + call assert_match('^"compiler ant bcc .* xmlwf$', @:) + + call feedkeys(":compiler p\<C-A>\<C-B>\"\<CR>", 'tx') + call assert_equal('"compiler pbx perl php pylint pyunit', @:) + + call feedkeys(":compiler! p\<C-A>\<C-B>\"\<CR>", 'tx') + call assert_equal('"compiler! pbx perl php pylint pyunit', @:) +endfunc + +func Test_compiler_error() + call assert_fails('compiler doesnotexist', 'E666:') +endfunc