tests/testthat/test-create.R

In hypertidy/vapour: Lightweight Access to the 'Geospatial Data Abstraction Library' ('GDAL')

ex <- c(10, 20, -10, 20)
test_that("create works", {
  expect_silent(vapour_create(tf <- tempfile(fileext = ".tif"), dimension = c(10, 5), extent = ex)) |> expect_equal(tf)
  expect_silent(info <- vapour_raster_info(tf))  
  expect_equal(info$extent, ex)
  expect_equal(info$dimension, c(10, 5))
})