Massively reduce the amount of code needed for linter tests

1 files changed, 4 insertions, 27 deletions

diff --git a/test/command_callback/test_perl_command_callback.vader b/test/command_callback/test_perl_command_callback.vader
index ba85e53b..3c4b661c 100644
--- a/test/command_callback/test_perl_command_callback.vader
+++ b/test/command_callback/test_perl_command_callback.vader
@@ -1,37 +1,14 @@
 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
+  call ale#assert#SetUpLinterTest('perl', 'perl')
 
 After:
-  Restore
-
-  unlet! b:ale_perl_perl_executable
-  unlet! b:ale_perl_perl_options
-
-  call ale#linter#Reset()
+  call ale#assert#TearDownLinterTest()
 
 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(''))
+  AssertLinter 'perl', ale#Escape('perl') . ' -c -Mwarnings -Ilib %t'
 
 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(''))
+  AssertLinter 'foobar', ale#Escape('foobar') . ' -w %t'