2 files changed, 36 insertions, 7 deletions
diff --git a/test/fix/test_ale_fix.vader b/test/fix/test_ale_fix.vader
index 539972a4..90407681 100644
--- a/test/fix/test_ale_fix.vader
+++ b/test/fix/test_ale_fix.vader
@@ -180,6 +180,7 @@ After:
   unlet! g:ale_emulate_job_failure
   unlet! b:ale_fixers
   unlet! b:ale_fix_on_save
+  unlet! b:ale_quitting
   delfunction AddCarets
   delfunction AddDollars
   delfunction DoNothing
@@ -431,7 +432,7 @@ Given testft (A file with three lines):
   b
   c
 
-Execute(ALEFix should save files on the save event):
+Execute(ALEFix should fix files on the save event):
   let g:ale_fix_on_save = 1
   let g:ale_lint_on_save = 1
   let g:ale_enabled = 1
@@ -471,6 +472,36 @@ Expect(The buffer should be modified):
   $b
   $c
 
+Execute(ALEFix should not fix files on :wq):
+  let g:ale_fix_on_save = 1
+  let g:ale_lint_on_save = 1
+  let g:ale_enabled = 1
+
+  noautocmd silent file fix_test_file
+  call writefile(getline(1, '$'), 'fix_test_file')
+
+  let g:ale_fixers.testft = ['AddDollars']
+
+  " We have to set the buftype to empty so the file will be written.
+  setlocal buftype=
+
+  call ale#events#QuitEvent(bufnr(''))
+
+  call SetUpLinters()
+  call ale#events#SaveEvent(bufnr(''))
+
+  " We should save the file.
+  AssertEqual ['a', 'b', 'c'], readfile('fix_test_file')
+  Assert &modified, 'The was not marked as ''modified'''
+
+  " We should not run the linter.
+  AssertEqual [], ale#test#GetLoclistWithoutModule()
+
+Expect(The buffer should not be modified):
+  a
+  b
+  c
+
 Given testft (A file with three lines):
   a
   b
diff --git a/test/fixers/test_ocamlformat_fixer_callback.vader b/test/fixers/test_ocamlformat_fixer_callback.vader
index d2aee066..f0c36ed7 100644
--- a/test/fixers/test_ocamlformat_fixer_callback.vader
+++ b/test/fixers/test_ocamlformat_fixer_callback.vader
@@ -18,10 +18,9 @@ Execute(The ocamlformat callback should return the correct default values):
 
   AssertEqual
   \ {
-  \   'read_temporary_file': 1,
   \   'command': ale#Escape('xxxinvalid')
-  \     . ' --inplace'
-  \     . ' %t',
+  \     . ' --name=' . ale#Escape(bufname(bufnr('')))
+  \     . ' -',
   \ },
   \ ale#fixers#ocamlformat#Fix(bufnr(''))
 
@@ -31,10 +30,9 @@ Execute(The ocamlformat callback should include custom ocamlformat options):
 
   AssertEqual
   \ {
-  \   'read_temporary_file': 1,
   \   'command': ale#Escape('xxxinvalid')
   \     . ' ' . g:ale_ocaml_ocamlformat_options
-  \     . ' --inplace'
-  \     . ' %t',
+  \     . ' --name=' . ale#Escape(bufname(bufnr('')))
+  \     . ' -',
   \ },
   \ ale#fixers#ocamlformat#Fix(bufnr(''))