tests/testthat/test-TNRS_base.R

In TNRS: Taxonomic Name Resolution Service

context("tnrs base")


test_that("example works", {
  # skip_if_offline(host = "r-project.org")


  vcr::use_cassette("tnrs_base", {
    results <- TNRS:::TNRS_base(taxonomic_names = tnrs_testfile, url = url, skip_internet_check = TRUE)
  })

  # test below assume a data dictionary and will be skipped if one isn't returned
  skip_if_not(class(results) == "data.frame")
  expect_equal(object = nrow(results), expected = nrow(tnrs_testfile))
})