tests/testthat/helper-query-describe.R

In treesitter.r: 'R' Grammar for 'Tree-Sitter'

expect_describe_it_captures <- function(parent_desc, desc, captures) {
  skip_if_not_installed("treesitter")

  # make sure we captured something
  expect_gt(length(captures$node), 0)

  # the capture names that should always be present
  expect_contains(
    captures$name,
    c(
      "parent_call",
      "parent_function",
      "parent_desc",
      "call",
      "function",
      "desc"
    )
  )

  expect_equal(
    treesitter::node_text(captures[["node"]][[which(
      captures$name == "parent_function"
    )]]),
    "describe"
  )
  expect_equal(
    treesitter::node_text(captures[["node"]][[which(
      captures$name == "parent_desc"
    )]]),
    parent_desc
  )
  expect_equal(
    treesitter::node_text(captures[["node"]][[which(
      captures$name == "function"
    )]]),
    "it"
  )
  expect_equal(
    treesitter::node_text(captures[["node"]][[which(captures$name == "desc")]]),
    desc
  )
}