| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame^] | 1 | " Test the :compiler command |
| 2 | |
| 3 | func Test_compiler() |
| 4 | if !executable('perl') |
| 5 | return |
| 6 | endif |
| 7 | |
| 8 | e Xfoo.pl |
| 9 | compiler perl |
| 10 | call assert_equal('perl', b:current_compiler) |
| 11 | call assert_fails('let g:current_compiler', 'E121:') |
| 12 | |
| 13 | call setline(1, ['#!/usr/bin/perl -w', 'use strict;', 'my $foo=1']) |
| 14 | w! |
| 15 | call feedkeys(":make\<CR>\<CR>", 'tx') |
| 16 | call assert_fails('clist', 'E42:') |
| 17 | |
| 18 | call setline(1, ['#!/usr/bin/perl -w', 'use strict;', '$foo=1']) |
| 19 | w! |
| 20 | call feedkeys(":make\<CR>\<CR>", 'tx') |
| 21 | let a=execute('clist') |
| 22 | call assert_equal("\n 1 Xfoo.pl:3: Global symbol \"\$foo\" " |
| 23 | \ . "requires explicit package name " |
| 24 | \ . "(did you forget to declare \"my $foo\"?)", a) |
| 25 | |
| 26 | call delete('Xfoo.pl') |
| 27 | bw! |
| 28 | endfunc |
| 29 | |
| 30 | func Test_compiler_without_arg() |
| 31 | let a=split(execute('compiler')) |
| 32 | call assert_equal($VIMRUNTIME . '/compiler/ant.vim', a[0]) |
| 33 | call assert_equal($VIMRUNTIME . '/compiler/bcc.vim', a[1]) |
| 34 | call assert_equal($VIMRUNTIME . '/compiler/xmlwf.vim', a[-1]) |
| 35 | endfunc |
| 36 | |
| 37 | func Test_compiler_completion() |
| 38 | call feedkeys(":compiler \<C-A>\<C-B>\"\<CR>", 'tx') |
| 39 | call assert_match('^"compiler ant bcc .* xmlwf$', @:) |
| 40 | |
| 41 | call feedkeys(":compiler p\<C-A>\<C-B>\"\<CR>", 'tx') |
| 42 | call assert_equal('"compiler pbx perl php pylint pyunit', @:) |
| 43 | |
| 44 | call feedkeys(":compiler! p\<C-A>\<C-B>\"\<CR>", 'tx') |
| 45 | call assert_equal('"compiler! pbx perl php pylint pyunit', @:) |
| 46 | endfunc |
| 47 | |
| 48 | func Test_compiler_error() |
| 49 | call assert_fails('compiler doesnotexist', 'E666:') |
| 50 | endfunc |