tests/testthat/setup-functions.R

In nbenn/infx: OpenBIS API Access to the InfectX Data Repository

check_skip <- function() {

  if (identical(Sys.getenv("TRAVIS"), "true") &&
      !identical(Sys.getenv("TRAVIS_R_VERSION_STRING"), "release"))
    skip("On non-release Travis")

  if (identical(Sys.getenv("APPVEYOR"), "True"))
    skip("On Appveyor")

  if (!identical(Sys.getenv("NOT_CRAN"), "true"))
    skip("On CRAN")

  return(invisible(TRUE))
}

expect_attr <- function(object, attr) {

  act <- quasi_label(rlang::enquo(object))

  act$attrs <- names(attributes(object))

  expect(
    attr %in% act$attrs,
    sprintf("%s is not among attributes of %s: %s.",
            attr, act$lab, paste(act$attrs, collapse = ", "))
  )

  invisible(act$val)
}