use setup.R in testsuite

OSGeo · Feb 6, 2025 · 31b0026 · 31b0026
1 parent 588639b
commit 31b0026
Show file tree

Hide file tree

Showing 7 changed files with 2 additions and 42 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -0,0 +1,2 @@
+testdata <- download_nc_basic()
+gisBase <- get_gisbase()
diff --git a/tests/testthat/test-execGRASS.R b/tests/testthat/test-execGRASS.R
@@ -1,12 +1,5 @@
 library(testthat)
 library(terra)
-source("helper.R")
-
-# setup
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 test_that("testing basic doGRASS, execGRASS, stringexecGRASS", {
   skip_if_not(!is.null(gisBase), "GRASS GIS not found on PATH")

diff --git a/tests/testthat/test-gmeta.R b/tests/testthat/test-gmeta.R
@@ -1,12 +1,5 @@
 library(testthat)
 library(terra)
-source("helper.R")
-
-# setup
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 testthat::test_that("testing gmeta", {
   skip_if_not(!is.null(gisBase), "GRASS GIS not found on PATH")

diff --git a/tests/testthat/test-initGRASS.R b/tests/testthat/test-initGRASS.R
@@ -1,12 +1,5 @@
 library(testthat)
 library(terra)
-source("helper.R")
-
-# setup
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 test_that("testing basic initGRASS", {
   skip_if_not(!is.null(gisBase), "GRASS GIS not found on PATH")

diff --git a/tests/testthat/test-options.R b/tests/testthat/test-options.R
@@ -1,12 +1,5 @@
 library(testthat)
 library(terra)
-source("helper.R")
-
-# setup
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 test_that("testing ignore.stderrOption", {
   skip_if_not(!is.null(gisBase), "GRASS GIS not found on PATH")

diff --git a/tests/testthat/test-read_RAST.R b/tests/testthat/test-read_RAST.R
@@ -1,13 +1,6 @@
 library(testthat)
 library(terra)
 library(sp)
-source("helper.R")
-
-# setup (share grass session across tests)
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 if (!is.null(gisBase)) {
   loc <- initGRASS(

diff --git a/tests/testthat/test-read_VECT.R b/tests/testthat/test-read_VECT.R
@@ -1,12 +1,5 @@
 library(testthat)
 library(terra)
-source("helper.R")
-
-# setup (share grass session across tests)
-testdata <- download_nc_basic()
-withr::defer(fs::dir_delete(testdata$gisDbase))
-
-gisBase <- get_gisbase()
 
 # test basic read_VECT operation
 test_that("testing read_VECT", {
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		testdata <- download_nc_basic()
		gisBase <- get_gisbase()