tests/testthat/helper-RNeXML.R

#' @importFrom rlang enquo
expect_true_or_null <- function(o){
  val <- rlang::enquo(o)
  if(!is.null(o)){
    testthat::expect_true(!!val)
  } else {
    testthat::expect_null(!!val)
  }
}

library("XML")
ropensci/RNeXML documentation built on May 10, 2024, 1:50 p.m.