tests/testthat/test-routine_registration_linter.R

In jimhester/lintr: A 'Linter' for R Code

patrick::with_parameters_test_that(
  "lints correctly",
  {
    linter <- routine_registration_linter()
    expect_lint(sprintf("%s(ROUTINE, 1)", caller), NULL, linter)
    expect_lint(
      sprintf("%s('ROUTINE', PACKAGE = 'foo')", caller),
      "Register your native code routines with useDynLib",
      linter
    )
  },
  .test_name = c(".C", ".Call", ".External", ".Fortran"),
  caller = c(".C", ".Call", ".External", ".Fortran")
)

test_that("lints vectorize", {
  lint_msg <- "Register your native code routines with useDynLib"

  expect_lint(
    trim_some("{
      .C('ROUTINE', PACKAGE = 'foo')
      .External('POUTINE', PACKAGE = 'bar')
    }"),
    list(
      list(lint_msg, line_number = 2L),
      list(lint_msg, line_number = 3L)
    ),
    routine_registration_linter()
  )
})