From a6c6e24d61c3d67f46cb9e3d5a8d4c8475b8a8c6 Mon Sep 17 00:00:00 2001
From: w0rp <devw0rp@gmail.com>
Date: Wed, 19 Sep 2018 19:28:41 +0100
Subject: #1872 Remove extra carriage returns when fixing files on Windows

---
 test/test_writefile_function.vader | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'test')

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
-- 
cgit v1.2.3