tests/testthat/test-msgs_common.R

In stbl: Stabilize Function Arguments

test_that("object_type returns expected types", {
  expect_identical(
    object_type(factor(letters)),
    "factor"
  )
  expect_identical(
    object_type(),
    "missing"
  )
  expect_identical(
    object_type(quote(mean(1:10))),
    "call"
  )
  expect_identical(
    object_type(rlang::quo(whatever)),
    "quosure"
  )
})