summaryrefslogtreecommitdiff
path: root/test/command_callback/test_perl_command_callback.vader
diff options
context:
space:
mode:
Diffstat (limited to 'test/command_callback/test_perl_command_callback.vader')
-rw-r--r--test/command_callback/test_perl_command_callback.vader37
1 files changed, 37 insertions, 0 deletions
diff --git a/test/command_callback/test_perl_command_callback.vader b/test/command_callback/test_perl_command_callback.vader
new file mode 100644
index 00000000..ba85e53b
--- /dev/null
+++ b/test/command_callback/test_perl_command_callback.vader
@@ -0,0 +1,37 @@
+Before:
+ Save g:ale_perl_perl_executable
+ Save g:ale_perl_perl_options
+
+ unlet! g:ale_perl_perl_executable
+ unlet! g:ale_perl_perl_options
+
+ runtime ale_linters/perl/perl.vim
+
+After:
+ Restore
+
+ unlet! b:ale_perl_perl_executable
+ unlet! b:ale_perl_perl_options
+
+ call ale#linter#Reset()
+
+Execute(The default Perl command callback should be correct):
+ AssertEqual
+ \ 'perl',
+ \ ale_linters#perl#perl#GetExecutable(bufnr(''))
+
+ AssertEqual
+ \ ale#Escape('perl') . ' -c -Mwarnings -Ilib %t',
+ \ ale_linters#perl#perl#GetCommand(bufnr(''))
+
+Execute(Overriding the executable and command should work):
+ let b:ale_perl_perl_executable = 'foobar'
+ let b:ale_perl_perl_options = '-w'
+
+ AssertEqual
+ \ 'foobar',
+ \ ale_linters#perl#perl#GetExecutable(bufnr(''))
+
+ AssertEqual
+ \ ale#Escape('foobar') . ' -w %t',
+ \ ale_linters#perl#perl#GetCommand(bufnr(''))