tests/testthat/test-load_prepare_data.R

In mur4mat/floodshp: Handling ESRI Shapefile Flood Risk

test_that("divideNChunks - check the amount of generated shapefiles",{
  shapefile_divided <- divideNChunks(shapefile = shapefile,
                                     shapefile_bounds = shapefile_bounds,
                                     region_col_name = "NAME")

  expect_equal(length(shapefile_divided), nrow(shapefile_bounds@data))
})