tests/testthat/test_mosaicfield.R

In ropensci/NLMR: Simulating Neutral Landscape Models

# nolint start
context("nlm_mosaicfield")

mosaic_field <- nlm_mosaicfield(
  ncol = 20,
  nrow = 30,
  n = 3,
  infinit = TRUE,
  collect = FALSE
)

test_that("nlm_mosaicfield behaves like it should", {
  expect_that(mosaic_field$mosaicfield_raster, is_a("RasterLayer"))
})

test_that("nlm_mosaicfield produces the right number of rows", {
  expect_equal(mosaic_field$mosaicfield_inf@nrows, 30)
})

test_that("nlm_mosaicfield produces the right number of columns", {
  expect_equal(mosaic_field$mosaicfield_raster@ncols, 20)
})

test_that("nlm_mosaicfield stores at least 2 raster when infinit true
          and n != NA",
          {
            expect_equal(length(mosaic_field), 2)
          })

mosaic_field2 <- nlm_mosaicfield(
  ncol = 20,
  nrow = 30,
  n = 3,
  infinit = TRUE,
  collect = TRUE
)

test_that("nlm_mosaicfield stores at least 3 raster when infinit true
          and n != NA and collect true",
          {
            expect_equal(length(mosaic_field2), 3)
          })

test_that("nlm_mosaicfield stores collection as rasterbrick",
          {
            expect_that(mosaic_field2$steps, is_a("RasterBrick"))
          })

# nolint end