inst/tinytest/test_wkt_grd.R

In terra: Spatial Data Analysis

# failed on CRAN

#if (terra::gdal() >= "2.3.0") {
#  fl <- system.file("ex/test.grd", package="terra")
#  tst <- terra::rast(fl)
#  terra::crs(tst) <- "EPSG:28992"
#  tf <- tempfile(fileext=".grd")
#  terra::writeRaster(tst, tf)
#  tst1 <- terra::rast(tf)
#  if (terra::gdal() > "3.4.2") {
#    expect_identical(terra::crs(tst, describe=TRUE)[1:3],
#        terra::crs(tst1, describe=TRUE)[1:3])
#  } else {
#    expect_false(isTRUE(all.equal(terra::crs(tst, describe=TRUE)[1:3],
#        terra::crs(tst1, describe=TRUE)[1:3])))
#  }
#}