Massively reduce the amount of code needed for linter tests

1 files changed, 5 insertions, 26 deletions

diff --git a/test/command_callback/test_haskell_hdevtools_command_callbacks.vader b/test/command_callback/test_haskell_hdevtools_command_callbacks.vader
index c5320c5c..0ef2f0e3 100644
--- a/test/command_callback/test_haskell_hdevtools_command_callbacks.vader
+++ b/test/command_callback/test_haskell_hdevtools_command_callbacks.vader
@@ -1,37 +1,16 @@
 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
+  call ale#assert#SetUpLinterTest('haskell', 'hdevtools')
 
   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(''))
+  call ale#assert#TearDownLinterTest()
 
-  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(''))
+Execute(The executable should be configurable):
+  AssertLinter 'hdevtools', ale#Escape('hdevtools') . b:command_tail
 
   let b:ale_haskell_hdevtools_executable = 'foobar'
 
-  AssertEqual
-  \ ale#Escape('foobar') . b:command_tail,
-  \ ale_linters#haskell#hdevtools#GetCommand(bufnr(''))
+  AssertLinter 'foobar', ale#Escape('foobar') . b:command_tail