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
|
test_that("use_lintr works as expected", {
tmp <- withr::local_tempdir()
lintr_file <- use_lintr(path = tmp)
expect_true(file.exists(lintr_file))
# check that newly created file is in the root directory
expect_identical(
normalize_path(lintr_file),
file.path(normalize_path(tmp), ".lintr")
)
# can't generate if a .lintr already exists
expect_error(use_lintr(path = tmp), "Found an existing configuration")
# check that `read_settings()` works with the generated file
# this can be checked by checking lintr runs successfully
lints <- lint_dir(tmp)
expect_length(lints, 0L)
})
test_that("use_lintr with type = full also works", {
tmp <- withr::local_tempdir()
# type = "full" also works with read_settings()
lintr_file <- use_lintr(path = tmp, type = "full")
expect_true(file.exists(lintr_file))
# check that newly created file is in the root directory
expect_identical(
normalize_path(lintr_file),
file.path(normalize_path(tmp), ".lintr")
)
lints <- lint_dir(tmp)
expect_length(lints, 0L)
})
|
