#1872 Remove extra carriage returns when fixing files on Windows

1 files changed, 20 insertions, 1 deletions

diff --git a/test/test_writefile_function.vader b/test/test_writefile_function.vader
index 4e4aab53..8c8a6f17 100644
--- a/test/test_writefile_function.vader
+++ b/test/test_writefile_function.vader
@@ -28,7 +28,26 @@ Execute(Carriage returns should be included for ale#util#Writefile):
   AssertEqual
   \ ["first\r", "second\r", "third\r", ''],
   \ readfile('.newline-test', 'b')
-  \
+
+Given(A file with extra carriage returns):
+  first


+  second



+  third

+  fourth
+
+Execute(Carriage returns should be de-depulicated):
+  call ale#test#SetFilename('.newline-test')
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=dos
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), '.newline-test')
+
+  AssertEqual
+  \ ["first\r", "second\r", "third\r", "fourth\r", ''],
+  \ readfile('.newline-test', 'b')
+
 Given(A file with Unix line ending characters):
   first
   second