tests/testthat/test_simulate_includes.R

In NCC-CNC/wheretowork: Interactive Systematic Conservation Planning Application

context("simulate_includes")

test_that("simple dataset (single)", {
  # create object
  d <- new_dataset_from_auto(import_simple_raster_data())
  x <- simulate_includes(d, 1)
  # run tests
  expect_is(x, "list")
  expect_length(x, 1)
  expect_true(all_list_elements_inherit(x, "Include"))
})

test_that("simple dataset (multiple)", {
  # create object
  d <- new_dataset_from_auto(import_simple_raster_data())
  x <- simulate_includes(d, 3)
  # run tests
  expect_is(x, "list")
  expect_length(x, 3)
  expect_true(all_list_elements_inherit(x, "Include"))
})

test_that("large dataset", {
  # create object
  d <- new_dataset_from_auto(import_realistic_raster_data())
  x <- simulate_includes(d, 3)
  # run tests
  expect_is(x, "list")
  expect_true(all_list_elements_inherit(x, "Include"))
})