test/fixers/test_erlang_mode_fixer_callback.vader

   1 Before:
   2   call ale#assert#SetUpFixerTest('erlang', 'erlang_mode')
   3
   4   function! Fixer(key, ...) abort
   5     let l:name = get(a:, 1, 'erlang_mode')
   6
   7     let l:func = ale#fix#registry#GetFunc(l:name)
   8     let l:dict = call(l:func, [bufnr('')])
   9
  10     return l:dict[a:key]
  11   endfunction
  12
  13 After:
  14   delfunction Fixer
  15   call ale#assert#TearDownFixerTest()
  16
  17 Execute(Emacs should edit temporary file in batch mode):
  18   AssertEqual 0, stridx(
  19   \ Fixer('command'),
  20   \ ale#Escape('emacs') . ' --batch --find-file=%t --eval=',
  21   \)
  22
  23 Execute(The temporary file should be read):
  24   AssertEqual 1, Fixer('read_temporary_file')
  25
  26 Execute(Fixer alias erlang-mode should be provided):
  27   AssertEqual 0, stridx(
  28   \ Fixer('command', 'erlang-mode'),
  29   \ ale#Escape('emacs') . ' --batch --find-file=%t --eval=',
  30   \)
  31
  32 Execute(Emacs executable should be configurable):
  33   let b:ale_erlang_erlang_mode_emacs_executable = '/path/to/emacs'
  34   AssertEqual 0, stridx(Fixer('command'), ale#Escape('/path/to/emacs'))
  35
  36 Execute(enable-local-variables should be :safe):
  37   Assert Fixer('command') =~# '\m\<enable-local-variables :safe\>'
  38
  39 Execute(erlang-indent-level should be 4 by default):
  40   Assert Fixer('command') =~# '\m\<erlang-indent-level 4\>'
  41
  42 Execute(erlang-indent-level should be configurable):
  43   let b:ale_erlang_erlang_mode_indent_level = 2
  44   Assert Fixer('command') =~# '\m\<erlang-indent-level 2\>'
  45
  46 Execute(erlang-icr-indent should be nil by default):
  47   Assert Fixer('command') =~# '\m\<erlang-icr-indent nil\>'
  48
  49 Execute(erlang-icr-indent should be configurable):
  50   let b:ale_erlang_erlang_mode_icr_indent = 0
  51   Assert Fixer('command') =~# '\m\<erlang-icr-indent 0\>'
  52
  53 Execute(erlang-indent-guard should be 2 by default):
  54   Assert Fixer('command') =~# '\m\<erlang-indent-guard 2\>'
  55
  56 Execute(erlang-indent-guard should be configurable):
  57   let b:ale_erlang_erlang_mode_indent_guard = 0
  58   Assert Fixer('command') =~# '\m\<erlang-indent-guard 0\>'
  59
  60 Execute(erlang-argument-indent should be 2 by default):
  61   Assert Fixer('command') =~# '\m\<erlang-argument-indent 2\>'
  62
  63 Execute(erlang-argument-indent should be configurable):
  64   let b:ale_erlang_erlang_mode_argument_indent = 4
  65   Assert Fixer('command') =~# '\m\<erlang-argument-indent 4\>'
  66
  67 Execute(indent-tabs-mode should be nil by default):
  68   Assert Fixer('command') =~# '\m\<indent-tabs-mode nil\>'
  69
  70 Execute(indent-tabs-mode should be configurable):
  71   let b:ale_erlang_erlang_mode_indent_tabs_mode = 't'
  72   Assert Fixer('command') =~# '\m\<indent-tabs-mode t\>'