X-Git-Url: https://git.madduck.net/etc/vim.git/blobdiff_plain/0ee596c5c5e11fc79598407eaf22f83d279f7e9e..5a4872f466ebd76ddd532bdf2798554421c53df4:/.vim/bundle/ale/test/test_writefile_function.vader

diff --git a/.vim/bundle/ale/test/test_writefile_function.vader b/.vim/bundle/ale/test/test_writefile_function.vader
new file mode 100644
index 00000000..53a88331
--- /dev/null
+++ b/.vim/bundle/ale/test/test_writefile_function.vader
@@ -0,0 +1,117 @@
+Before:
+  call ale#test#SetDirectory('/testplugin/test')
+
+  let g:new_line_test_file = tempname()
+
+After:
+  noautocmd :e! ++ff=unix
+  setlocal buftype=nofile
+
+  if filereadable(g:new_line_test_file)
+    call delete(g:new_line_test_file)
+  endif
+
+  unlet! g:new_line_test_file
+
+  call ale#test#RestoreDirectory()
+
+Given(A file with Windows line ending characters):
+  first
+  second
+  third
+
+Execute(Carriage returns should be included for ale#util#Writefile):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=dos
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ["first\r", "second\r", "third\r", ''],
+  \ readfile(g:new_line_test_file, 'b')
+
+Given(A file with extra carriage returns):
+  first

+  second


+  third
+  fourth
+
+Execute(Carriage returns should be de-depulicated):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=dos
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ["first\r", "second\r", "third\r", "fourth\r", ''],
+  \ readfile(g:new_line_test_file, 'b')
+
+Given(A file with Unix line ending characters):
+  first
+  second
+  third
+
+Execute(Unix file lines should be written as normal):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=unix
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ['first', 'second', 'third', ''],
+  \ readfile(g:new_line_test_file, 'b')
+
+Execute(Newline at end of file should be preserved even when nofixeol):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=unix
+  set eol
+  set nofixeol
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ['first', 'second', 'third', ''],
+  \ readfile(g:new_line_test_file, 'b')
+
+Execute(Newline should not be appended on write when noeol and nofixeol):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=unix
+  set noeol
+  set nofixeol
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ['first', 'second', 'third'],
+  \ readfile(g:new_line_test_file, 'b')
+
+Execute(Newline should be appended on write when noeol and fixeol):
+  call ale#test#SetFilename(g:new_line_test_file)
+
+  setlocal buftype=
+  noautocmd :w
+  noautocmd :e! ++ff=unix
+  set noeol
+  set fixeol
+
+  call ale#util#Writefile(bufnr(''), getline(1, '$'), g:new_line_test_file)
+
+  AssertEqual
+  \ ['first', 'second', 'third', ''],
+  \ readfile(g:new_line_test_file, 'b')
+