tests/testthat/test-transect_list_inventory.R

In fqar: Floristic Quality Assessment Tools for R

test_that("transect_list_inventory works",  {

  bad_list <- list(faithful)

  expect_message(transect_list_inventory(bad_list))
  expect_message(transect_list_inventory(faithful))
  expect_true(is.list(suppressMessages(transect_list_inventory(faithful))))

  test_raw <- suppressMessages(download_transect(4492))

  if (nrow(test_raw) != 0){
    test_transect_list <- list(test_raw,
                               test_raw,
                               test_raw)
    inv_list <- transect_list_inventory(test_transect_list)

    expect_equal(class(inv_list), "list")
    expect_equal(length(inv_list), 3)
    expect_equal(ncol(inv_list[[1]]), 13)
  }

})