tests/testthat/test-trailing_whitespace_linter.R

In lintr: A 'Linter' for R Code

# fuzzer disable: comment_injection
test_that("returns the correct linting", {
  linter <- trailing_whitespace_linter()
  lint_msg <- rex::rex("Remove trailing whitespace.")

  expect_no_lint("blah", linter)

  expect_lint(
    "blah <- 1  ",
    list(message = lint_msg, column_number = 10L),
    linter
  )

  expect_lint("blah <- 1  \n'hi'", lint_msg, linter)

  expect_lint(
    "blah <- 1\n'hi'\na <- 2  ",
    list(message = lint_msg, line_number = 3L),
    linter
  )
})

test_that("also handles completely empty lines per allow_empty_lines argument", {
  linter <- trailing_whitespace_linter()
  lint_msg <- rex::rex("Remove trailing whitespace.")

  expect_lint(
    "blah <- 1\n  \n'hi'\na <- 2",
    list(message = lint_msg, line_number = 2L),
    linter
  )

  expect_lint(
    "blah <- 1  ",
    list(message = lint_msg, column_number = 10L),
    trailing_whitespace_linter(allow_empty_lines = TRUE)
  )

  expect_no_lint(
    "blah <- 1\n  \n'hi'\na <- 2",
    trailing_whitespace_linter(allow_empty_lines = TRUE)
  )
})

test_that("also handles trailing whitespace in string constants", {
  linter <- trailing_whitespace_linter()
  lint_msg <- rex::rex("Remove trailing whitespace.")

  expect_no_lint("blah <- '  \n  \n'", linter)
  # Don't exclude past the end of string
  expect_lint(
    "blah <- '  \n  \n'  ",
    list(message = lint_msg, line_number = 3L),
    linter
  )
  # can be enabled with allow_in_strings = FALSE
  expect_lint(
    "blah <- '  \n  \n'",
    list(message = lint_msg, line_number = 1L),
    trailing_whitespace_linter(allow_empty_lines = TRUE, allow_in_strings = FALSE)
  )
  expect_lint(
    "blah <- '  \n  \n'",
    list(
      list(message = lint_msg, line_number = 1L),
      list(message = lint_msg, line_number = 2L)
    ),
    trailing_whitespace_linter(allow_in_strings = FALSE)
  )
})
# fuzzer enable: comment_injection