tests/testthat/test-ClipSoilMap.R

In cvitolo/curvenumber: An implementation of the USDA Soil Conservation Service Curve Number method

context("ClipSoilMap")

test_that("ClipSoilMap generates correct SpatialPolygonsDataFrame", {

  data("PlynlimonSUBCATCHMENTS")
  data("PlynlimonSOIL")

  soilMap <- ClipMap(map = PlynlimonSOIL,
                     catchment = PlynlimonSUBCATCHMENTS[1,])

  expect_equal(dim(soilMap@data), c(19, 36))

})