R/test_dbs.R

In c5sire/brapi: Client to Access Breeding Databases Using BrAPI

test_dbs <- function(resources = c("internet",
                                   "testthat",
                                   "testserver",
                                   "sweetpotatobase",
                                   "genesys")) {
  if ("internet" %in% resources) {
    testthat::test_dir("tests/internet")
  }
  if ("testserver" %in% resources) {
    testthat::test_dir("tests/testserver")
  }
  if ("sweetpotatobase" %in% resources) {
    testthat::test_dir("tests/sweetpotatobase")
  }
}