tests/testthat/test-quote.R

In admiraldev: Utility Functions and Development Tools for the Admiral Package Family

# enumerate ----
## Test 1: enumerate works ----
test_that("enumerate Test 1: enumerate works", {
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_equal(enumerate(letters[1]), "`a`")
  expect_equal(enumerate(letters[1:3]), "`a`, `b` and `c`")
  expect_equal(enumerate(1:3, quote_fun = NULL), "1, 2 and 3")
})

# squote ----
## Test 2: squote works ----
test_that("squote Test 2: squote works", {
  expect_equal(squote(letters[1]), "'a'")
  expect_equal(squote(letters[1:3]), c("'a'", "'b'", "'c'"))
})

# dquote ----
## Test 3: dquote works ----
test_that("dquote Test 3: dquote works", {
  expect_equal(dquote(letters[1]), "\"a\"")
  expect_equal(dquote(letters[1:3]), c("\"a\"", "\"b\"", "\"c\""))
  x <- NULL
  expect_equal(dquote(x), "NULL")
})