tests/testthat/test-03-lookup-functions.R

In ecohealthalliance/eidith: Data access and analytical tools for the PREDICT EIDITH database

withr::with_options(list(ed_sql_path = TEST_SQL_PATH), {

  DB_EXISTS <- length(ed_db_status()) == 7

  context("Functions")

  if(!DB_EXISTS) {
    message("Database empty, some tests will be skipped")
  } else {

    test_that("ed_tests_report works without error", {
      expect_error(ed_tests_report(), NA)
    })

    test_that("ed_fasta using ed_tests_report works without error", {
      expect_error(ed_fasta(ed_tests_report(), NA))
    })

  }

})


unlink(TEST_SQL_PATH)