tests/testthat/test-make_linter_from_regex.R

In r-lib/lintr: A 'Linter' for R Code

test_that("test make_linter_from_regex works", {
  linter <- lintr:::make_linter_from_regex("-", "style", "Silly lint.")()
  expect_lint("a <- 2L", "Silly lint.", linter)
  expect_lint("a = '2-3'", NULL, linter)
})