tests/testthat/test-1-make_manifest.R

In terrainr: Landscape Visualizations in R and 'Unity'

test_that("make_manifest reproduces the same tiles", {
  # on GitHub, this test fails to find temp files used in the middle of
  # raster_to_raw on windows and mac devices
  #
  # this does not occur on the windows machine I have access to, though I am
  # yet to test it on a mac. As such, I believe this may be an issue with the
  # GH environment rather than using magick to open a tempfile.
  skip_on_os(c("windows", "mac"))
  skip_on_cran()

  outputs <- make_manifest(
    "testdata/3DEP_gr.tif",
    "testdata/NAIPPlus_gr.tif",
    output_prefix = tempfile(),
    manifest_path = tempfile(),
    importer_path = NULL
  )

  outputs_table <- read.table(outputs, sep = "\t")

  expect_equal(
    ncol(outputs_table),
    ncol(read.table("testdata/example.manifest", sep = "\t"))
  )

  expect_equal(
    png::readPNG(outputs_table$V8),
    png::readPNG("testdata/manifest_ort.png")
  )
})

test_that("prep_table warns when expected", {

  expect_warning(
    prep_table("testdata/3DEP_gr.tif",
               10,
               "import",
               type = "elevation"
    ),
    "Side lengths must be equal"
  )

})