| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 1 | " Test the :compiler command |
| 2 | |
| Bram Moolenaar | 5a4c308 | 2019-12-01 15:23:11 +0100 | [diff] [blame] | 3 | source check.vim |
| 4 | |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 5 | func Test_compiler() |
| 6 | if !executable('perl') |
| 7 | return |
| 8 | endif |
| Bram Moolenaar | 5a4c308 | 2019-12-01 15:23:11 +0100 | [diff] [blame] | 9 | CheckFeature quickfix |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 10 | |
| Bram Moolenaar | f0447e8 | 2018-07-03 21:26:38 +0200 | [diff] [blame] | 11 | " $LANG changes the output of Perl. |
| 12 | if $LANG != '' |
| 13 | unlet $LANG |
| 14 | endif |
| 15 | |
| Bram Moolenaar | dff2adc | 2019-07-31 22:18:22 +0200 | [diff] [blame] | 16 | " %:S does not work properly with 'shellslash' set |
| 17 | let save_shellslash = &shellslash |
| 18 | set noshellslash |
| 19 | |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 20 | e Xfoo.pl |
| 21 | compiler perl |
| 22 | call assert_equal('perl', b:current_compiler) |
| 23 | call assert_fails('let g:current_compiler', 'E121:') |
| 24 | |
| 25 | call setline(1, ['#!/usr/bin/perl -w', 'use strict;', 'my $foo=1']) |
| 26 | w! |
| 27 | call feedkeys(":make\<CR>\<CR>", 'tx') |
| 28 | call assert_fails('clist', 'E42:') |
| 29 | |
| 30 | call setline(1, ['#!/usr/bin/perl -w', 'use strict;', '$foo=1']) |
| 31 | w! |
| 32 | call feedkeys(":make\<CR>\<CR>", 'tx') |
| 33 | let a=execute('clist') |
| Bram Moolenaar | cebfcff | 2019-09-18 21:42:38 +0200 | [diff] [blame] | 34 | call assert_match('\n \d\+ Xfoo.pl:3: Global symbol "$foo" ' |
| 35 | \ . 'requires explicit package name', a) |
| 36 | |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 37 | |
| Bram Moolenaar | dff2adc | 2019-07-31 22:18:22 +0200 | [diff] [blame] | 38 | let &shellslash = save_shellslash |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 39 | call delete('Xfoo.pl') |
| 40 | bw! |
| 41 | endfunc |
| 42 | |
| 43 | func Test_compiler_without_arg() |
| Bram Moolenaar | c25e702 | 2019-10-10 14:08:26 +0200 | [diff] [blame] | 44 | let runtime = substitute($VIMRUNTIME, '\\', '/', 'g') |
| 45 | let a = split(execute('compiler')) |
| 46 | call assert_match(runtime .. '/compiler/ant.vim$', a[0]) |
| 47 | call assert_match(runtime .. '/compiler/bcc.vim$', a[1]) |
| 48 | call assert_match(runtime .. '/compiler/xmlwf.vim$', a[-1]) |
| Bram Moolenaar | 10561fe | 2018-05-19 15:01:10 +0200 | [diff] [blame] | 49 | endfunc |
| 50 | |
| 51 | func Test_compiler_completion() |
| 52 | call feedkeys(":compiler \<C-A>\<C-B>\"\<CR>", 'tx') |
| 53 | call assert_match('^"compiler ant bcc .* xmlwf$', @:) |
| 54 | |
| 55 | call feedkeys(":compiler p\<C-A>\<C-B>\"\<CR>", 'tx') |
| 56 | call assert_equal('"compiler pbx perl php pylint pyunit', @:) |
| 57 | |
| 58 | call feedkeys(":compiler! p\<C-A>\<C-B>\"\<CR>", 'tx') |
| 59 | call assert_equal('"compiler! pbx perl php pylint pyunit', @:) |
| 60 | endfunc |
| 61 | |
| 62 | func Test_compiler_error() |
| 63 | call assert_fails('compiler doesnotexist', 'E666:') |
| 64 | endfunc |