diff options
author | Takano Akio <tak@anoak.io> | 2017-07-24 04:36:28 +0000 |
---|---|---|
committer | Takano Akio <tak@anoak.io> | 2017-07-24 05:50:09 +0000 |
commit | 8ab632e6f2ad59668a1e54e083d7b5648d87ad70 (patch) | |
tree | 9415ce4b44abdf28ac07b93b9716862188bf66be /test | |
parent | a0059cfe0362e8ba55bad1f4fa8a310c74b55280 (diff) | |
download | ale-8ab632e6f2ad59668a1e54e083d7b5648d87ad70.zip |
Make executable and options configurable for hdevtools
Diffstat (limited to 'test')
-rw-r--r-- | test/command_callback/test_haskell_hdevtools_command_callbacks.vader | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test/command_callback/test_haskell_hdevtools_command_callbacks.vader b/test/command_callback/test_haskell_hdevtools_command_callbacks.vader new file mode 100644 index 00000000..c5320c5c --- /dev/null +++ b/test/command_callback/test_haskell_hdevtools_command_callbacks.vader @@ -0,0 +1,37 @@ +Before: + Save g:ale_haskell_hdevtools_executable + Save g:ale_haskell_hdevtools_options + + unlet! g:ale_haskell_hdevtools_executable + unlet! b:ale_haskell_hdevtools_executable + unlet! g:ale_haskell_hdevtools_options + unlet! b:ale_haskell_hdevtools_options + + runtime ale_linters/haskell/hdevtools.vim + + let b:command_tail = ' check -g -Wall -p %s %t' + +After: + Restore + unlet! b:command_tail + unlet! b:ale_haskell_hdevtools_executable + unlet! b:ale_haskell_hdevtools_options + call ale#linter#Reset() + +Execute(The executable should be configurable): + AssertEqual 'hdevtools', ale_linters#haskell#hdevtools#GetExecutable(bufnr('')) + + let b:ale_haskell_hdevtools_executable = 'foobar' + + AssertEqual 'foobar', ale_linters#haskell#hdevtools#GetExecutable(bufnr('')) + +Execute(The executable should be used in the command): + AssertEqual + \ ale#Escape('hdevtools') . b:command_tail, + \ ale_linters#haskell#hdevtools#GetCommand(bufnr('')) + + let b:ale_haskell_hdevtools_executable = 'foobar' + + AssertEqual + \ ale#Escape('foobar') . b:command_tail, + \ ale_linters#haskell#hdevtools#GetCommand(bufnr('')) |