Mercurial > vim
changeset 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 | 22add1bef76b |
children | a48940d371b0 |
files | src/Makefile src/testdir/test_alot.vim src/testdir/test_compiler.vim src/version.c |
diffstat | 4 files changed, 54 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/Makefile +++ b/src/Makefile @@ -2150,6 +2150,7 @@ test_arglist \ test_cmdline \ test_command_count \ test_comparators \ + test_compiler \ test_crypt \ test_cscope \ test_cursor_func \
--- a/src/testdir/test_alot.vim +++ b/src/testdir/test_alot.vim @@ -5,6 +5,7 @@ source test_assign.vim source test_bufline.vim source test_cd.vim source test_changedtick.vim +source test_compiler.vim source test_cursor_func.vim source test_delete.vim source test_ex_undo.vim
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