tests/testthat/helper-misc.R

In lbartnik/repository: Object Repository for R

expect_not_null <- function (object, info = NULL, label = NULL) {
  act <- quasi_label(rlang::enquo(object), label)
  expect(!is.null(act$val), sprintf("%s is null.", act$lab),
         info = info)
  invisible(act$val)
}

expect_node <- function (node, ...) {

  cond <- list(...)
  if (!is.null(cond$id))       cond$id <- as_id(cond$id)
  if (!is.null(cond$parents))  cond$parents <- as_id(cond$parents)
  if (!is.null(cond$children)) cond$children <- as_id(cond$children)

  expect_true(all(names(cond) %in% names(node)))

  lapply(names(cond), function (name) {
    expect_equal(cond[[name]], node[[name]], info = name)
  })

  invisible(TRUE)
}

dummy_plot <- function () {
  on.exit(dev.off())
  png(tempfile(fileext = '.png'))
  dev.control("enable")
  plot(seq(10))
  recordPlot()
}