tests/test_dQuote.R

In backports: Reimplementations of Functions Introduced Since R-3.0.0

source("helper/helper.R")

f = get("dQuote", envir = baseenv())
expect_same = makeCompareFun(f, backports:::dQuote)

expect_same("foo")
if (getRversion() >= "3.6.0") {
  expect_same("foo", q = TRUE)
  expect_same("foo", q = FALSE)
}


f = get("sQuote", envir = baseenv())
expect_same = makeCompareFun(f, backports:::sQuote)

expect_same("foo")
if (getRversion() > "3.6.0") {
  expect_same("foo", q = TRUE)
  expect_same("foo", q = FALSE)
}