From 4716073c3bea6cf9cd9547a4de45cf22ba4c1b2d Mon Sep 17 00:00:00 2001
From: Steven Pawley <dr.stevenpawley@gmail.com>
Date: Mon, 20 Jan 2025 16:15:19 -0700
Subject: [PATCH] remove test_XML and test_terra_ptr

---
 tests/test_XML_xml2.R          | 13 -------------
 tests/test_XML_xml2.Rout.save  | 34 ----------------------------------
 tests/test_terra_ptr.R         | 11 -----------
 tests/test_terra_ptr.Rout.save | 32 --------------------------------
 4 files changed, 90 deletions(-)
 delete mode 100644 tests/test_XML_xml2.R
 delete mode 100644 tests/test_XML_xml2.Rout.save
 delete mode 100644 tests/test_terra_ptr.R
 delete mode 100644 tests/test_terra_ptr.Rout.save

diff --git a/tests/test_XML_xml2.R b/tests/test_XML_xml2.R
deleted file mode 100644
index ce5c399..0000000
--- a/tests/test_XML_xml2.R
+++ /dev/null
@@ -1,13 +0,0 @@
-suppressPackageStartupMessages(library(rgrass))
-## IGNORE_RDIFF_BEGIN
-old <- readRDS(system.file("etc/XML.r.out.gdal.rds", package = "rgrass"))
-if (nchar(Sys.getenv("GISRC")) > 0) {
-  new <- parseGRASS("r.out.gdal")
-  stopifnot(isTRUE(all.equal(old, new)))
-}
-old <- readRDS(system.file("etc/res_r.water.outlet.rds", package = "rgrass"))
-if (nchar(Sys.getenv("GISRC")) > 0) {
-  new <- parseGRASS("r.water.outlet")
-  stopifnot(isTRUE(all.equal(old, new)))
-}
-## IGNORE_RDIFF_END
diff --git a/tests/test_XML_xml2.Rout.save b/tests/test_XML_xml2.Rout.save
deleted file mode 100644
index 54a4fc6..0000000
--- a/tests/test_XML_xml2.Rout.save
+++ /dev/null
@@ -1,34 +0,0 @@
-
-R Under development (unstable) (2024-09-03 r87091) -- "Unsuffered Consequences"
-Copyright (C) 2024 The R Foundation for Statistical Computing
-Platform: x86_64-pc-linux-gnu
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> suppressPackageStartupMessages(library(rgrass))
-> ## IGNORE_RDIFF_BEGIN
-> old <- readRDS(system.file("etc/XML.r.out.gdal.rds", package = "rgrass"))
-> if (nchar(Sys.getenv("GISRC")) > 0) {
-+   new <- parseGRASS("r.out.gdal")
-+   all.equal(old, new)
-+ }
-> old <- readRDS(system.file("etc/res_r.water.outlet.rds", package = "rgrass"))
-> if (nchar(Sys.getenv("GISRC")) > 0) {
-+   new <- parseGRASS("r.water.outlet")
-+   all.equal(old, new)
-+ }
-> ## IGNORE_RDIFF_END
-> 
-> proc.time()
-   user  system elapsed 
-  0.169   0.045   0.207 
diff --git a/tests/test_terra_ptr.R b/tests/test_terra_ptr.R
deleted file mode 100644
index f0c0668..0000000
--- a/tests/test_terra_ptr.R
+++ /dev/null
@@ -1,11 +0,0 @@
-suppressPackageStartupMessages(library(rgrass))
-if (requireNamespace("terra", quietly = TRUE)) {
-  f <- system.file("ex/elev.tif", package = "terra")
-  SG <- terra::rast(f)
-  if (packageVersion("terra") < "1.7.46") {
-    bb <- getMethod("ext", "SpatRaster")(SG)@ptr$vector
-    all.equal(bb, as.vector(getMethod("ext", "SpatRaster")(SG)))
-  } else {
-    bb <- as.vector(getMethod("ext", "SpatRaster")(SG))
-  }
-}
diff --git a/tests/test_terra_ptr.Rout.save b/tests/test_terra_ptr.Rout.save
deleted file mode 100644
index cbcabc5..0000000
--- a/tests/test_terra_ptr.Rout.save
+++ /dev/null
@@ -1,32 +0,0 @@
-
-R Under development (unstable) (2024-09-03 r87091) -- "Unsuffered Consequences"
-Copyright (C) 2024 The R Foundation for Statistical Computing
-Platform: x86_64-pc-linux-gnu
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> suppressPackageStartupMessages(library(rgrass))
-> if (requireNamespace("terra", quietly = TRUE)) {
-+   f <- system.file("ex/elev.tif", package = "terra")
-+   SG <- terra::rast(f)
-+   if (packageVersion("terra") < "1.7.46") {
-+     bb <- getMethod("ext", "SpatRaster")(SG)@ptr$vector
-+     all.equal(bb, as.vector(getMethod("ext", "SpatRaster")(SG)))
-+   } else {
-+     bb <- as.vector(getMethod("ext", "SpatRaster")(SG))
-+   }
-+ }
-> 
-> proc.time()
-   user  system elapsed 
-  2.479   0.070   2.551