tests/testthat/test-index_fqa_transects.R

In fqar: Floristic Quality Assessment Tools for R

test_that("index_fqa_transects works", {

  expect_error(index_fqa_transects(1.5))
  expect_error(index_fqa_transects("hi"))

  empty_output <- index_fqa_transects(-40000)
  expect_equal(nrow(empty_output), 0)
  expect_equal(ncol(empty_output), 5)
  expect_false(memoise::has_cache(index_fqa_transects_internal)(-40000))

  transects <- suppressMessages(index_fqa_transects(1))

  expect_equal(ncol(transects), 5)
  expect_equal(names(transects),
               c("id", "assessment", "date", "site", "practitioner"))
  expect_equal(class(transects[[1]]), "numeric")
  expect_equal(class(transects[[3]]), "Date")
  expect_equal(class(transects[[5]]), "character")
})