test/command_callback/test_haskell_hdevtools_command_callbacks.vader


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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(''))