different way of skipping long tests (#43)

usa-npn · Jan 29, 2025 · c285b35 · c285b35
1 parent 421c114
commit c285b35
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/tests/testthat/test-npn-geoserver.R b/tests/testthat/test-npn-geoserver.R
@@ -1,3 +1,5 @@
+skip_long_tests <- as.logical(Sys.getenv("RNPN_SKIP_LONG_TESTS", unset = "true"))
+
 test_that("npn_get_layer_details works", {
   skip_on_cran()
   skip_if_not(check_geo_service(), "Geo Service is down")
@@ -143,7 +145,7 @@ test_that("npn_get_agdd_point_data works",{
 
 test_that("npn_get_custom_agdd_raster works", {
   skip_on_cran()
-  skip_if(get_skip_long_tests())
+  skip_if(skip_long_tests)
   # skip_if_not(check_data_service(), "Data Service is down")
 
   res <- npn_get_custom_agdd_raster(

diff --git a/tests/testthat/test-npn-observations.R b/tests/testthat/test-npn-observations.R
@@ -4,7 +4,7 @@
 # https://github.com/ropensci/vcr/issues/273 and
 # https://github.com/r-lib/httr2/issues/651
 
-skip_long_tests <- get_skip_long_tests()
+skip_long_tests <- as.logical(Sys.getenv("RNPN_SKIP_LONG_TESTS", unset = "true"))
 
 test_that("no request source blocked", {
   skip_on_cran()