From 15f44933c2a7e2917b37e666dec4fe53a342bc11 Mon Sep 17 00:00:00 2001 From: pinicarus Date: Wed, 28 Oct 2020 11:48:57 +0100 Subject: [PATCH 1/3] feat(erlang/erlc): add option for custom executable --- ale_linters/erlang/erlc.vim | 16 ++++++-- doc/ale-erlang.txt | 8 ++++ .../test_erlang_erlc_command_callback.vader | 40 +++++++++++++++++++ 3 files changed, 60 insertions(+), 4 deletions(-) create mode 100644 test/command_callback/test_erlang_erlc_command_callback.vader diff --git a/ale_linters/erlang/erlc.vim b/ale_linters/erlang/erlc.vim index a83bacc3..e78dc341 100644 --- a/ale_linters/erlang/erlc.vim +++ b/ale_linters/erlang/erlc.vim @@ -1,14 +1,22 @@ " Author: Magnus Ottenklinger - https://github.com/evnu +let g:ale_erlang_erlc_executable = get(g:, 'ale_erlang_erlc_executable', 'erlc') let g:ale_erlang_erlc_options = get(g:, 'ale_erlang_erlc_options', '') +function! ale_linters#erlang#erlc#GetExecutable(buffer) abort + return ale#Var(a:buffer, 'erlang_erlc_executable') +endfunction + function! ale_linters#erlang#erlc#GetCommand(buffer) abort let l:output_file = ale#util#Tempname() call ale#command#ManageFile(a:buffer, l:output_file) - return 'erlc -o ' . ale#Escape(l:output_file) - \ . ' ' . ale#Var(a:buffer, 'erlang_erlc_options') - \ . ' %t' + let l:command = ale#Escape(ale_linters#erlang#erlc#GetExecutable(a:buffer)) + \ . ' -o ' . ale#Escape(l:output_file) + \ . ' ' . ale#Var(a:buffer, 'erlang_erlc_options') + \ . ' %t' + + return l:command endfunction function! ale_linters#erlang#erlc#Handle(buffer, lines) abort @@ -90,7 +98,7 @@ endfunction call ale#linter#Define('erlang', { \ 'name': 'erlc', -\ 'executable': 'erlc', +\ 'executable': function('ale_linters#erlang#erlc#GetExecutable'), \ 'command': function('ale_linters#erlang#erlc#GetCommand'), \ 'callback': 'ale_linters#erlang#erlc#Handle', \}) diff --git a/doc/ale-erlang.txt b/doc/ale-erlang.txt index 59993a99..cc0879ea 100644 --- a/doc/ale-erlang.txt +++ b/doc/ale-erlang.txt @@ -34,6 +34,14 @@ g:ale_erlang_dialyzer_rebar3_profile *g:ale_erlang_dialyzer_rebar3_profile* ------------------------------------------------------------------------------- erlc *ale-erlang-erlc* +g:ale_erlang_erlc_executable *g:ale_erlang_erlc_executable* + *b:ale_erlang_erlc_executable* + Type: |String| + Default: `'erlc'` + + This variable can be changed to specify the erlc executable. + + g:ale_erlang_erlc_options *g:ale_erlang_erlc_options* *b:ale_erlang_erlc_options* Type: |String| diff --git a/test/command_callback/test_erlang_erlc_command_callback.vader b/test/command_callback/test_erlang_erlc_command_callback.vader new file mode 100644 index 00000000..e101bb43 --- /dev/null +++ b/test/command_callback/test_erlang_erlc_command_callback.vader @@ -0,0 +1,40 @@ +Before: + call ale#assert#SetUpLinterTest('erlang', 'erlc') + +After: + call ale#assert#TearDownLinterTest() + +Execute(The default command should be correct.): + let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) + let g:regex = '^''erlc''\s\+-o\s\+[^\s]\+\s\+%t' + let g:matched = match(g:cmd, g:regex) + + " match returns -1 if not found + AssertNotEqual + \ g:matched, + \ -1, + \ 'Command error: expected [' . g:cmd . '] to match [' . g:regex . ']' + +Execute(The command should accept configured executable.): + let b:ale_erlang_erlc_executable = '/usr/bin/erlc' + let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) + let g:regex = '^''/usr/bin/erlc''\s\+-o\s\+[^\s]\+\s\+%t' + let g:matched = match(g:cmd, g:regex) + + " match returns -1 if not found + AssertNotEqual + \ g:matched, + \ -1, + \ 'Command error: expected [' . g:cmd . '] to match [' . g:regex . ']' + +Execute(The command should accept configured options.): + let b:ale_erlang_erlc_options = '-I include' + let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) + let g:regex = '^''erlc''\s\+-o\s\+[^\s]\+\s\+-I include\s\+%t' + let g:matched = match(g:cmd, g:regex) + + " match returns -1 if not found + AssertNotEqual + \ g:matched, + \ -1, + \ 'Command error: expected [' . g:cmd . '] to match [' . g:regex . ']' From 7d69cdf4adc8ad2badb0d032572837471992b563 Mon Sep 17 00:00:00 2001 From: pinicarus Date: Wed, 28 Oct 2020 12:51:38 +0100 Subject: [PATCH 2/3] test(erlang/erlc): make quotes optional in matches --- .../test_erlang_erlc_command_callback.vader | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/command_callback/test_erlang_erlc_command_callback.vader b/test/command_callback/test_erlang_erlc_command_callback.vader index e101bb43..ce390338 100644 --- a/test/command_callback/test_erlang_erlc_command_callback.vader +++ b/test/command_callback/test_erlang_erlc_command_callback.vader @@ -6,7 +6,7 @@ After: Execute(The default command should be correct.): let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''erlc''\s\+-o\s\+[^\s]\+\s\+%t' + let g:regex = '^''\?erlc''\?\s\+-o\s\+[^\s]\+\s\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found @@ -18,7 +18,7 @@ Execute(The default command should be correct.): Execute(The command should accept configured executable.): let b:ale_erlang_erlc_executable = '/usr/bin/erlc' let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''/usr/bin/erlc''\s\+-o\s\+[^\s]\+\s\+%t' + let g:regex = '^''\?/usr/bin/erlc''\?\s\+-o\s\+[^\s]\+\s\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found @@ -30,7 +30,7 @@ Execute(The command should accept configured executable.): Execute(The command should accept configured options.): let b:ale_erlang_erlc_options = '-I include' let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''erlc''\s\+-o\s\+[^\s]\+\s\+-I include\s\+%t' + let g:regex = '^''\?erlc''\?\s\+-o\s\+[^\s]\+\s\+-I include\s\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found From 62f2c6d3261af41ef01db6868724881fd6eebccc Mon Sep 17 00:00:00 2001 From: pinicarus Date: Wed, 28 Oct 2020 12:58:15 +0100 Subject: [PATCH 3/3] test(erlang/erlc): simplify matches --- .../test_erlang_erlc_command_callback.vader | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/command_callback/test_erlang_erlc_command_callback.vader b/test/command_callback/test_erlang_erlc_command_callback.vader index ce390338..7d659a07 100644 --- a/test/command_callback/test_erlang_erlc_command_callback.vader +++ b/test/command_callback/test_erlang_erlc_command_callback.vader @@ -6,7 +6,7 @@ After: Execute(The default command should be correct.): let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''\?erlc''\?\s\+-o\s\+[^\s]\+\s\+%t' + let g:regex = 'erlc.\+-o.\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found @@ -18,7 +18,7 @@ Execute(The default command should be correct.): Execute(The command should accept configured executable.): let b:ale_erlang_erlc_executable = '/usr/bin/erlc' let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''\?/usr/bin/erlc''\?\s\+-o\s\+[^\s]\+\s\+%t' + let g:regex = '/usr/bin/erlc.\+-o.\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found @@ -30,7 +30,7 @@ Execute(The command should accept configured executable.): Execute(The command should accept configured options.): let b:ale_erlang_erlc_options = '-I include' let g:cmd = ale_linters#erlang#erlc#GetCommand(bufnr('')) - let g:regex = '^''\?erlc''\?\s\+-o\s\+[^\s]\+\s\+-I include\s\+%t' + let g:regex = 'erlc.\+-o.\+-I include.\+%t' let g:matched = match(g:cmd, g:regex) " match returns -1 if not found