summaryrefslogtreecommitdiff
path: root/test/test_writefile_function.vader
blob: 8c8a6f17269d68293b30fa513fc8fca0eaec33db (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Before:
  call ale#test#SetDirectory('/testplugin/test')

After:
  noautocmd :e! ++ff=unix
  setlocal buftype=nofile

  if filereadable('.newline-test')
    call delete('.newline-test')
  endif

  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('.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", ''],
  \ 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
  third

Execute(Unix file lines should be written as normal):
  call ale#test#SetFilename('.newline-test')

  setlocal buftype=
  noautocmd :w
  noautocmd :e! ++ff=unix

  call ale#util#Writefile(bufnr(''), getline(1, '$'), '.newline-test')

  AssertEqual
  \ ['first', 'second', 'third', ''],
  \ readfile('.newline-test', 'b')