tests/testthat/test-scan-reference-fishbase.R

In alketh/atlantistools: Process and Visualise Output from Atlantis Models

context("Scan fishbase reference list for specific string")

out <- scan_reference_fishbase("Gadus morhua", chr = "Heteroplasmy")

test_that("Test with cod and heteroplasmy as search tag", {
  expect_equal(nrow(out), 1)
  expect_equal(ncol(out), 6)
  expect_equal(out$ref_id, 46582)
  expect_equal(out$year, 1992)
  expect_warning(scan_reference_fishbase("Squalus acanthias", chr = "game of thrones"), "game of thrones not found")
})