tests/testthat/test-utils.R

In javifar/TIDYVERSE-DPLYR: A Grammar of Data Manipulation

test_that("quo_is_variable_reference handles .data",{
  expect_true(quo_is_variable_reference(quo(x)))
  expect_true(quo_is_variable_reference(quo(.data$x)))
  expect_true(quo_is_variable_reference(quo(.data[["x"]])))
  quo <- new_quosure(quote(.data[[identity("x")]]))
  expect_false(quo_is_variable_reference(quo))
})

test_that("check_pkg() give meaningful error messages", {
  expect_snapshot(error = TRUE, dplyr:::check_pkg("`__foobarbaz__`", "foobar a baz"))
  expect_snapshot(error = TRUE, dplyr:::check_pkg("`__foobarbaz__`", "foobar a baz", install = FALSE))
})