tests/test_XML_xml2.R

In rgrass: Interface Between 'GRASS' Geographical Information System and 'R'

library(rgrass)
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)
}