tests/testthat/test_1-2-0_RQ.R

context("RQ")

test_that("RQ deparse and normal", {
  expect_false(RQ("hutils", TRUE, FALSE))
  expect_false(RQ(hutils, TRUE, FALSE))
  
  expect_true(RQ("HUTILS", TRUE, FALSE))
  expect_true(RQ(HUTILS, TRUE, FALSE))
  
  expect_error(RQ(c("hutils", "data.table")))
  expect_null(RQ("HUTILS", NULL, stop("Should never be reached")))
})

test_that("isAttached", {
  skip_on_cran()
  expect_true(isAttached(hutils))
  expect_true(isAttached("hutils"))
  expect_false(isAttached("fastmatch"))
  expect_false(isAttached("___ gd9"))
})

Try the hutils package in your browser

Any scripts or data that you put into this service are public.

hutils documentation built on April 13, 2022, 5:23 p.m.