tests/testthat/test-is_transect_list.R

In fqar: Floristic Quality Assessment Tools for R

test_that("is_transect_list works",  {

  test_raw <- suppressMessages(download_transect(4492))
  test_transect_list <- list(test_raw, test_raw)
  bad_list <- list(faithful, faithful)

  expect_false(is_transect_list(random_unassigned_variable_5000))
  expect_true(is_transect_list(test_transect_list))
  expect_true(is_transect_list(list(test_raw)))
  expect_false(is_transect_list(test_raw))
  expect_false(is_transect_list(faithful))
  expect_false(is_transect_list(data.frame()))
  expect_false(is_transect_list(bad_list))

  internal_list <- list(test_transect, test_transect)
  expect_true(is_transect_list(test_transect_list))
})