tests/testthat/test-download_transect.R

In fqar: Floristic Quality Assessment Tools for R

test_that("download_transect works", {

  expect_error(download_transect("hi"), "transect_id must be an integer.")
  expect_error(download_transect(2.5), "transect_id must be an integer.")

  null_output <- download_transect(-40000)
  expect_equal(nrow(null_output), 0)
  expect_false(memoise::has_cache(download_transect_internal)(-40000))

  test_tr <- suppressMessages(download_transect(6322))
  expect_equal(ncol(test_tr), 14)
  expect_equal(class(test_tr), c("tbl_df",
                                 "tbl",
                                 "data.frame"))
})