tests/testthat/test-landscape-targets.R

In rflsgen: Neutral Landscape Generator with Targets on Landscape Indices

test_that("landscape_targets", {
  cls_1 <- flsgen_create_class_targets("class 1", NP=c(1, 10), AREA=c(1, 1000))
  cls_2 <- flsgen_create_class_targets("class 1", NP=c(1, 10), AREA=c(0, 2000))
  testthat::expect_error(flsgen_create_landscape_targets(200, 200, list(cls_1, cls_2)))
  cls_2 <- flsgen_create_class_targets("class 2", NP=c(1, 10), AREA=c(0, 2000))
  ls_targets <- flsgen_create_landscape_targets(200, 200, list(cls_1, cls_2))
  testthat::expect_equal(class(ls_targets), "FlsgenLandscapeTargets")
  testthat::expect_equal(ls_targets$nbCols, 200)
  testthat::expect_equal(ls_targets$nbRows, 200)
  testthat::expect_length(ls_targets$classes, 2)
})