tests/testthat/test-spex-extent.R

In mdsumner/spex: Spatial Extent Tools

context("spex-extent")

test_that("extent and crs works", {
  expect_that(spex(raster::extent(lux), raster::projection(lux)), is_a("SpatialPolygonsDataFrame"))

})


test_that("by id is not implemented", {
  expect_that(spex(lux, byid = TRUE), throws_error("implemented"))
})



test_that("extent of anything", {
  library(raster)
  expect_equal(spex(psf)@bbox[1,1], 0)
  expect_equal(spex(psf)@bbox[1, 2], 1.23)

  expect_equal(raster::extent(spex()) , raster::extent(0, 1, 0, 1))

  expect_equal(xlim(ice), c(-3950000,  3950000))
  expect_equal(ylim(ice), c(-3950000,  4350000))
})

library(raster)
r <- setExtent(raster(volcano), c(101, 102, -80, -30))

test_that("axis extents", {
  expect_equal(xlim(r), c(101, 102))
  expect_equal(ylim(r), c(-80, -30))
})