tests/testthat/test_ba_db.R

context("databases")

con <- ba_db()

test_that("DBs are present", {

  expect_that(length(con) == 19, is_true())

})

test_that("DBs contains at least one well-known", {

  expect_that("sweetpotatobase" %in% names(con), is_true())

})
c5sire/brapi documentation built on Oct. 17, 2019, 11:45 a.m.