tests/testthat/test-with_id.R

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

test_that("with_id works as expected", {
  source_expression <- get_source_expressions("tmp.R", "a <- 42L")$expressions[[1L]]
  ref <- with_id(
    source_expression = source_expression,
    ids_with_token(source_expression = source_expression, value = "expr")
  )
  expect_identical(ref, source_expression$parsed_content[c(1L, 3L, 6L), ])
  expect_identical(ref$token, rep_len("expr", nrow(ref)))

  # deprecated argument
  expect_error(
    with_id(
      source_file = source_expression,
      id = ids_with_token(source_expression = source_expression, value = "expr")
    ),
    "Argument source_file was deprecated"
  )
})