1test_that("quo_is_variable_reference handles .data",{
2  expect_true(quo_is_variable_reference(quo(x)))
3  expect_true(quo_is_variable_reference(quo(.data$x)))
4  expect_true(quo_is_variable_reference(quo(.data[["x"]])))
5  quo <- new_quosure(quote(.data[[identity("x")]]))
6  expect_false(quo_is_variable_reference(quo))
7})
8
9test_that("check_pkg() give meaningful error messages", {
10  expect_snapshot(error = TRUE, dplyr:::check_pkg("`__foobarbaz__`", "foobar a baz"))
11  expect_snapshot(error = TRUE, dplyr:::check_pkg("`__foobarbaz__`", "foobar a baz", install = FALSE))
12})
13