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
|
test_that("line_length_linter skips allowed usages", {
linter <- line_length_linter(80L)
expect_lint("blah", NULL, linter)
expect_lint(strrep("x", 80L), NULL, linter)
})
test_that("line_length_linter blocks disallowed usages", {
linter <- line_length_linter(80L)
lint_msg <- rex::rex("Lines should not be more than 80 characters. This line is 81 characters.")
expect_lint(
strrep("x", 81L),
list(
message = lint_msg,
column_number = 81L
),
linter
)
expect_lint(
paste(rep(strrep("x", 81L), 2L), collapse = "\n"),
list(
list(
message = lint_msg,
line_number = 1L,
column_number = 81L
),
list(
message = lint_msg,
line_number = 2L,
column_number = 81L
)
),
linter
)
linter <- line_length_linter(20L)
lint_msg <- rex::rex("Lines should not be more than 20 characters. This line is 22 characters.")
expect_lint(strrep("a", 20L), NULL, linter)
expect_lint(
strrep("a", 22L),
list(
message = lint_msg,
column_number = 21L
),
linter
)
# Don't duplicate lints
expect_length(
lint(
"x <- 2 # ------------\n",
linters = linter,
parse_settings = FALSE
),
1L
)
})
test_that("Multiple lints give custom messages", {
expect_lint(
trim_some("{
abcdefg
hijklmnop
}"),
list(
list("9 characters", line_number = 2L),
list("11 characters", line_number = 3L)
),
line_length_linter(5L)
)
})
|
