tests/testthat/test-paren_brace_linter.R

In lintr: A 'Linter' for R Code

test_that("returns the correct linting", {
  expect_warning(
    {
      linter <- paren_brace_linter()
    },
    "Linter paren_brace_linter was deprecated",
    fixed = TRUE
  )
  lint_msg <- rex::rex("There should be a space between right parenthesis and an opening curly brace.")

  expect_lint("blah", NULL, linter)
  expect_lint("blah <- function() {}", NULL, linter)
  expect_lint("blah <- function() {\n}", NULL, linter)

  expect_lint(
    "blah <- function(){}",
    list(
      message = lint_msg,
      column_number = 19L
    ),
    linter
  )

  expect_lint(
    "\nblah <- function(){\n\n\n}",
    list(
      message = lint_msg,
      column_number = 19L
    ),
    linter
  )

  # paren_brace_linter should ignore strings and comments, as in regexes:
  expect_lint("grepl('(iss){2}', 'Mississippi')", NULL, linter)
  expect_lint(
    "x <- 123 # dont flag (paren){brace} if inside a comment",
    NULL,
    linter
  )
  # paren-brace lint should not be thrown when the brace lies on subsequent line
  expect_lint(
    paste(
      "x <- function()",
      "               {2}",
      sep = "\n"
    ),
    NULL,
    linter
  )
})