summaryrefslogtreecommitdiff
path: root/test/handler/test_fortran_handler.vader
blob: c55a4c6ff447e76affc31ce3dcde8008592e21d1 (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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Before:
  runtime ale_linters/fortran/gcc.vim

After:
  call ale#linter#Reset()

Execute(The fortran handler should parse lines from GCC 4.1.2 correctly):
  AssertEqual
  \ [
  \   {
  \     'bufnr': 357,
  \     'lnum': 4,
  \     'col': 0,
  \     'text': "Symbol ‘b’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \   {
  \     'bufnr': 357,
  \     'lnum': 3,
  \     'col': 0,
  \     'text': "Symbol ‘a’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \ ],
  \ ale_linters#fortran#gcc#Handle(357, [
  \   " In file :4",
  \   "",
  \   "write(*,*) b",
  \   "           1",
  \   "Error: Symbol ‘b’ at (1) has no IMPLICIT type",
  \   " In file :3",
  \   "",
  \   "write(*,*) a",
  \   "           1",
  \   "Error: Symbol ‘a’ at (1) has no IMPLICIT type",
  \ ])


Execute(The fortran handler should parse lines from GCC 4.9.3 correctly):
  AssertEqual
  \ [
  \   {
  \     'bufnr': 357,
  \     'lnum': 3,
  \     'col': 12,
  \     'text': "Symbol ‘a’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \   {
  \     'bufnr': 357,
  \     'lnum': 4,
  \     'col': 12,
  \     'text': "Symbol ‘b’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \ ],
  \ ale_linters#fortran#gcc#Handle(357, [
  \   ":3.12:",
  \   "",
  \   "write(*,*) a",
  \   "           1",
  \   "Error: Symbol ‘a’ at (1) has no IMPLICIT type",
  \   ":4.12:",
  \   "",
  \   "write(*,*) b",
  \   "           1",
  \   "Error: Symbol ‘b’ at (1) has no IMPLICIT type",
  \ ])

Execute(The fortran handler should parse lines from GCC 6.3.1 correctly):
  AssertEqual
  \ [
  \   {
  \     'bufnr': 337,
  \     'lnum': 3,
  \     'col': 12,
  \     'text': "Symbol ‘a’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \   {
  \     'bufnr': 337,
  \     'lnum': 4,
  \     'col': 12,
  \     'text': "Symbol ‘b’ at (1) has no IMPLICIT type",
  \     'type': 'E',
  \   },
  \ ],
  \ ale_linters#fortran#gcc#Handle(337, [
  \   "<stdin>:3:12:",
  \   "",
  \   "Error: Symbol ‘a’ at (1) has no IMPLICIT type",
  \   "<stdin>:4:12:",
  \   "",
  \   "Error: Symbol ‘b’ at (1) has no IMPLICIT type",
  \ ])