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
|
test_that("condition_call_linter skips allowed usages", {
linter <- condition_call_linter()
expect_lint("stop('test', call. = FALSE)", NULL, linter)
# works even with multiple arguments
expect_lint("stop('this is a', 'test', call. = FALSE)", NULL, linter)
linter <- condition_call_linter(display_call = TRUE)
expect_lint("stop('test', call. = TRUE)", NULL, linter)
linter <- condition_call_linter(display_call = NA)
expect_lint("stop('test', call. = TRUE)", NULL, linter)
expect_lint("stop('test', call. = FALSE)", NULL, linter)
})
patrick::with_parameters_test_that(
"condition_call_linter blocks disallowed usages",
{
linter <- condition_call_linter()
lint_message <- rex::rex(call_name, anything, "not to display the call")
expect_lint(paste0(call_name, "('test')"), lint_message, linter)
expect_lint(paste0(call_name, "('test', call. = TRUE)"), lint_message, linter)
linter <- condition_call_linter(display_call = TRUE)
lint_message <- rex::rex(call_name, anything, "to display the call")
expect_lint(paste0(call_name, "('test', call. = FALSE)"), lint_message, linter)
linter <- condition_call_linter(display_call = NA)
lint_message <- rex::rex("explicit value", anything, call_name)
expect_lint(paste0(call_name, "('test')"), lint_message, linter)
},
call_name = c("stop", "warning")
)
test_that("lints vectorize", {
expect_lint(
trim_some("{
stop(e)
warning(w)
}"),
list(
list("stop", line_number = 2L),
list("warning", line_number = 3L)
),
condition_call_linter()
)
})
|
